Arbeitsmappen per Makro schließen

03. Februar 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So beenden Sie die Arbeit mit Excel-Tabellen automatisch

Sie möchten mit einem Makro dafür sorgen, alle Excel-Dateien zu schließen. Geöffnet bleiben sollen nur die gerade aktive Arbeitsmappe sowie die Arbeitsmappe, in der Ihre Makros ausgeführt werden.

Diese Aufgabe erledigen Sie mit dem folgenden Makro:

Sub AlleSchliessenAusserAktiveUndDiese()
Dim Mappe As Workbook
Dim i As Integer
Dim a As String
i = 0
AktName = ActiveWorkbook.Name
For Each Mappe In Workbooks
 If (UCase$(Mappe.Name) <> UCase$(ThisWorkbook.Name)) And _
    (UCase$(Mappe.Name) <> UCase$(ActiveWorkbook.Name)) Then
 
Mappe.Close
  i = i + 1
 End If
Next Mappe
a = MsgBox("Es wurden" & Str$(i) & " Arbeitsmappen geschlossen.", _
    vbOKOnly, "Makro ausgeführt")
End Sub

Das Makro durchläuft alle offenen Arbeitsmappen. Über die Eigenschaft Name vergleicht das Makro den Namen der Mappe mit dem Namen der aktiven Arbeitsmappe und dem Name der Mappe, in der das Makro ausgeführt wird. Wenn keiner der Namen identisch ist, wird die Arbeitsmappe geschlossen.

Anschließend zeigt das Makro in einem Hinweisfenster an, wie viele Arbeitsmappen bei dem Vorgang geschlossen wurden. Die folgende Abbildung zeigt, wie das aussehen kann:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

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"