Alle Excel-Arbeitsmappen schließen bis auf die ausgeführte

15. Februar 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

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:

dialogfenster excel

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • 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.

Unsere Datenschutzgarantie:

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.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • 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.

Unsere Datenschutzgarantie:

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.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"