VBA: Workbook schließen ohne speichern
Schritt-für-Schritt-Anleitung
Wenn Du ein Excel-Arbeitsbuch mit VBA schließen möchtest, ohne die vorgenommenen Änderungen zu speichern, kannst Du dies mit nur einer Zeile Code tun. Hier ist, wie Du vorgehst:
-
Öffne den Visual Basic for Applications (VBA) Editor in Excel, indem Du Alt + F11 drückst.
-
Füge ein neues Modul hinzu, indem Du im Menü "Einfügen" auf "Modul" klickst.
-
Schreibe den folgenden Code in das Modul:
Workbooks("Datei_xy.xls").Close SaveChanges:=False
-
Ersetze "Datei_xy.xls" durch den Namen des Arbeitsbuchs, das Du schließen möchtest.
-
Führe den Code aus, um das Arbeitsbuch zu schließen, ohne die Änderungen zu speichern.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du eine andere Methode bevorzugst, um ein Arbeitsbuch ohne Speicherung zu schließen, kannst Du die ThisWorkbook-Referenz verwenden, um das aktive Arbeitsbuch zu schließen:
ThisWorkbook.Close SaveChanges:=False
Diese Methode ist besonders nützlich, wenn Du das aktuelle Arbeitsbuch schließen möchtest, ohne den genauen Namen angeben zu müssen.
Praktische Beispiele
Hier sind einige praktische Beispiele für das Schließen von Arbeitsbüchern ohne Speichern:
-
Schließen eines bestimmten Arbeitsbuchs:
Sub SchließeBestimmteDatei()
Workbooks("MeinArbeitbuch.xlsx").Close SaveChanges:=False
End Sub
-
Schließen des aktiven Arbeitsbuchs:
Sub SchließeAktuelleDatei()
ThisWorkbook.Close SaveChanges:=False
End Sub
Diese Beispiele zeigen, wie Du verschiedene Arbeitsbücher in Excel mit VBA schließen kannst, ohne Änderungen zu speichern.
Tipps für Profis
-
Verwende Workbook.Close in Kombination mit On Error Resume Next, um potenzielle Fehler beim Schließen des Arbeitsbuchs zu vermeiden.
-
Dokumentiere Deinen Code mit Kommentaren, um anderen (oder Dir selbst) das Verständnis zu erleichtern, warum Du bestimmte Entscheidungen getroffen hast.
-
Experimentiere mit weiteren VBA-Befehlen, um das Schließen von Arbeitsbüchern zu automatisieren, beispielsweise in Verbindung mit Schleifen oder Bedingungen.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Arbeitsbücher gleichzeitig ohne Speichern schließen?
Du kannst eine Schleife verwenden, um durch eine Liste von Arbeitsbuchnamen zu iterieren und jedes Arbeitsbuch zu schließen:
Sub SchließeMehrereDateien()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> "MeinWichtigesArbeitbuch.xlsx" Then
wb.Close SaveChanges:=False
End If
Next wb
End Sub
2. Was passiert, wenn ich SaveChanges:=True verwende?
Wenn Du SaveChanges:=True verwendest, wird das Arbeitsbuch gespeichert, bevor es geschlossen wird. Dies ist nützlich, wenn Du sicherstellen möchtest, dass Deine Änderungen nicht verloren gehen.