Anzahl der geöffneten Arbeitsmappen per VBA bestimmen

05. Oktober 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

So ermitteln Sie per Makro, wie viele Arbeitsmappen geöffnet sind

Die Anzahl der aktiven Arbeitsmappen

Die Anzahl der aktiven Arbeitsmappen

In vielen Makros werden Arbeitsmappen der Reihe nach durchlaufen, um Berechnungen durchzuführen oder Inhalte auszulesen oder zu verändern.

Wie stellen Sie in einem Makro fest, wie viele Arbeitsmappen geöffnet sind? Verwenden Sie die Eigenschaft Workbooks.Count. Das folgende Makro zeigt, wie Sie mit dieser Eigenschaft die Anzahl der Arbeitsmappen in der aktiven Excel-Sitzung abfragen:

Sub StelleMappenanzahlFest()
Dim Anzahl As Integer
Anzahl = Workbooks.Count
MsgBox ("Zurzeit gibt es " & Anzahl & _
" geöffnete Arbeitsmappen.")
End Sub

Nach dem Start zeigt Excel die Anzahl der gerade geöffneten Arbeitsmappen in einem kleinen Fenster an, wie die folgende Abbildung demonstriert.

Die Anzahl der aktiven Arbeitsmappen

Um ein Makro einzugeben, starten Sie in allen Excel-Versionen über die Tastenkombination ALT F11 den VBA-Editor. Dort legen Sie über EINFÜGEN - MODUL ein leeres Modulblatt an, in das Sie die Makrobefehle eingeben. Zum Starten des Makros verwenden Sie in Excel die Tastenkombination ALT F8.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
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"