Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Alle Arbeitsmappen bis auf die aktive schließen

Forumthread: Alle Arbeitsmappen bis auf die aktive schließen

Alle Arbeitsmappen bis auf die aktive schließen
17.08.2016 13:18:54
Sascha
Hallo allerseits,
ich habe eine wahrscheinlich sehr triviale Frage:
Wie kann ich per VBA alle Arbeitsmappen bis auf die aktive schließen?
Vielen Dank im Voraus für eure Hinweise und Hilfe.
Gruß
Sascha
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Alle Arbeitsmappen bis auf die aktive schließen
17.08.2016 13:29:17
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub Test()
    Dim objWorkbook As Workbook
    For Each objWorkbook In Application.Workbooks
        If Not objWorkbook Is ActiveWorkbook Then _
            Call objWorkbook.Close(SaveChanges:=False)
    Next
End Sub

Gruß
Nepumuk
Anzeige
Alle Arbeitsmappen bis auf die aktive schließen
17.08.2016 15:11:53
Sascha
Hallo Nepumuk,
vielen dank für die schnelle Antwort,
hat alles super funktioniert.
Danke nochmal.
Gruß
Sascha

Forumthreads zu verwandten Themen

Anzeige