schließen ohne speichern
Christoph Esch
ich versuche gerade etwas zu schreiben, was mir alle Excel-
Dateien schließt ohne zu speichern.
Folgendes funktioniert auch grundsätzlich, aber erst nach
dem zweiten Ausführen - habe es als Button in die
Befehlsleiste eingebaut.
Was mache ich falsch. Woran liegt es, dass sich erst nach
dem 2. mal etwas tut?
Version ist 97.
Sub sub_schließen_ohne_speichern()
Dim z As Workbook
For Each z In Application.Workbooks
z.Close savechanges:=False
Next z
Application.Quit
End Sub
Viele Grüsse
Christoph
stefan onken
das liegt evtl daran, dass der Button beim 1. Klicken nur den Fokus erhält.
Manchmal hilft es, den Default des Button auf True zu setzen (geht allerdings nur
in UserFormen, meine ich) oder den Focus per VBA auf den Button zu setzen.
Gruß
stefan
"Christoph Esch" <cat...@t-online.de> wrote:
>Hallo,
>
>ich versuche gerade etwas zu schreiben, was mir alle Excel-
>Dateien schließt ohne zu speichern.
>
>Folgendes funktioniert auch grundsätzlich, aber erst nach=20
>dem zweiten Ausführen - habe es als Button in die=20
>Befehlsleiste eingebaut.
>
>Was mache ich falsch. Woran liegt es, dass sich erst nach=20
>dem 2. mal etwas tut?
>
>Version ist 97.
>
>Sub sub_schließen_ohne_speichern()
> =20
> Dim z As Workbook
> =20
> For Each z In Application.Workbooks
> z.Close savechanges:=3DFalse
> Next z
> Application.Quit
>
>End Sub
>
>Viele Grüsse
>
>Christoph
>
--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de
Christoph Esch
den Verdacht hatte ich auch schon. Ich habe ein formular
eingebaut und den default auf true gesetzt. Hat aber zu
demselben Ergebnis geführt. Bin also etwas ratlos.
Viele Grüsse
Christoph
>-----Originalnachricht-----
Georg Knott
Schau Dir mal zu Herbers Excel-Server - z. B. unter Text-
Index: 042398
http://herber.de/cgi-bin/callsmpl.pl?Datei=042398h.htm
M.f.G.
Georg