Anzahl der geöffneten Arbeitsmappen ermitteln

Zwar genügt meist ein Blick in das Menü »Fenster«, um festzustellen, wie viele Arbeitsmappen gerade aktiv sind, allerdings erscheinen in dieser Liste keine ausgeblendeten Mappen. Möchte man wissen, wie viele Dateien also auch ausgeblendete geöffnet sind, hilft das unten aufgeführte Makro weiter: Es gibt eine Dialogbox mit der Anzahl und Liste der geöffneten Arbeitsmappen aus.

Makro WievielMappen

Sub WievielMappen()

Dim i Als Ganz

Dim t Als ZeichenF

t = "Anzahl geöffneter Arbeitsmappen: " & ArbeitsmappeListe.Anzahl & Zn$(13)

Für i = 1 Bis ArbeitsmappeListe.Anzahl

t = t & Zn$(13) & "Datei " & i & ": " & ArbeitsmappeListe(i).Name

Nächste

MeldungsDlg t

Ende Sub