Alle Excel-Arbeitsmappen schließen bis auf die ausgeführte
So schließen Sie makrogesteuert alle Mappen bis auf die eigene
Sie möchten in einem Makro dafür sorgen, alle Arbeitsmappen zu schließen und nur die Mappe geöffnet behalten, in der das makro ausgeführt wird?
Dazu durchlaufen Sie alle Mappen der Reihe nach in einer Schleife, um sie zu schließen. Hier ist der passende Programmcode:
Sub AlleSchliessenNurDieseNicht()
Dim wbSchleife As Workbook
Dim i As Integer
i = 0
For Each wbSchleife In Workbooks
If wbSchleife.Name <> ThisWorkbook.Name Then
wbSchleife.Close
i = i + 1
End If
Next
a = MsgBox("Es wurden" & Str$(i) & " Arbeitsmappen geschlossen.", vbOKOnly, "Makro ausgeführt")
End Sub
Nach der Ausführung zeigt das Makro in einem Dialogfester an, wie viele Arbeitsmappen geschlossen wurden. Die folgende Abbilung zeigt, wie dieses Fenster aussehen kann:
Werden Sie mit unseren Tipps zum Excel-Profi!
- Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
- Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
- Jederzeit abbestellbar durch einen Link im Newsletter.
