Wie löscht man die aktuelle Arbeitsmappe (die aktuelle Datei) in Excel?

Diese Methode stellt ein VBA-Skript vor, mit dem Sie die geöffnete bzw. aktuelle Arbeitsmappe in Excel löschen können – ohne sie zuvor schließen zu müssen. Gehen Sie wie folgt vor:

1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf Einfügen > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das geöffnete Modulfenster ein.

VBA: Löschen von Aktuelle Arbeitsmappe ohne Schließen in Excel

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA-Skript auszuführen.

Hinweise:

(1) Dieses VBA-Makro löscht die aktuelle Arbeitsmappe, schließt jedoch nicht das Excel-Fenster. Sollte nach dem Löschen keine Arbeitsmappe mehr geöffnet sein, schließen Sie das Excel-Fenster bitte manuell.

(2) Wenn die aktuelle Arbeitsmappe noch nie gespeichert wurde, kann dieses VBA-Skript sie nicht löschen. Sie können diese ungespeicherte Arbeitsmappe jedoch direkt löschen, indem Sie sie schließen.