automatisch schließen UND speichern geht nicht
22.11.2006 21:08:12
Jörg
ich habe folgendes Problem, ich möchte mit dem CommandButton1 meine Excel Anwendung unter gleichem Pfad speichern und anschließend automatisch schließen lassen. Und zwar Excel schließen, wenn nur eine Anwendung offen ist, oder nur diese Arbeitsmappe schließen, wenn mehrere Anwendungen offen sind.
Ich habe nun das Problem, dass ich immer wieder per Meldung gefragt werde, ob ich speichern möchte ( Ja/Nein/Abbruch ), das soll aber nicht passieren, das sollte automatisch ausgeführt werden.
Wenn ich mit F8 Step für Step durchspringe, scheint es auch zu funktionieren, nur nicht bei der realen Anwendung mit dem Klick auf den cmdButton. Leider kann ich meinen Fehler nicht finden.
Kann mir da bitte jemand weiterhelfen?
Schon einmal vielen Dank im Voraus.
Grüße Jörg W.
Mein Code sieht folgendermaßen aus:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Worksheets("Daten").Visible = True
Worksheets("Daten").Select
Worksheets("Daten").Range(Worksheets("Daten").Cells(3, 1), _
Worksheets("Daten").Cells((intDatenAnzahl + 2), 256)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Unload Me 'mach mich zu.
Worksheets("Start").Activate
Range("A1").Select
Worksheets("Daten").Visible = False
Application.ScreenUpdating = True
'Diese Anwendung unter gleichem Pfad speichern.
ActiveWorkbook.Save
'Wenn Anzahl der offenen Mappen gleich 1, dann Excel schließen, ansonsten nur diese Mappe...
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub