Alle offenen Dateien schließen und dann Excel schließen

klexy · 06.07.2007

Leute, ich bin mit meinem Latein am Ende.
Per Makro sollen alle in Excel offenen Dateien gespeichert und geschlossen werden.
Anschließend soll Excel geschlossen werden.

Code:

  Do While Workbooks.Count > 0
    ActiveWindow.Close Savechanges:=True
  Loop
  Application.Quit

So hab ich mir das gedacht, aber es funktioniert nicht. Wenn keine Datei mehr offen ist, will das Makro trotzdem noch eine Datei schließen.
Wo liegt der Fehler?

Matjes · 06.07.2007

Hallo klexy,

versuchs mal so

Gruß Matjes

Code:

Sub Excel_AlleSpeichernUndSchliessen()

 Dim wb As Workbook
 
->für alle Mappen
 For Each wb In Workbooks
 ->außer mir selbst
  If wb.Name &lt;> ThisWorkbook.Name Then
  ->wenn nicht gespeichert, speichern, und schliessen
   wb.Close Savechanges:=True
  End If
 Next
 
 If Not ThisWorkbook.Saved Then ThisWorkbook.Save
 
 Application.Quit
 
End Sub

klexy · 31.07.2007

Hallo Matjes,

ich hab die Benachrichtigung von Wintotal nicht mitbekommen und war zwischendurch im Urlaub. Daher meine späte Antwort.
Danke. Das klingt gut. Ich werde es in den nächsten Tagen versuchen.

Alle offenen Dateien schließen und dann Excel schließen

klexy

Matjes

klexy

Alle offenen Dateien schließen und dann Excel schließen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums