Anzahl der Excel-Tabellenblätter per VBA-Makro bestimmen

27. April 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Fragen Sie über eine VBA-Eigenschaft ab, wie viele Tabellenblätter in der aktiven Arbeitsmappe enthalten sind

Ein Fenster informiert über die Anzahl der Tabellenblätter

Ein Fenster informiert über die Anzahl der Tabellenblätter

In vielen Makros sollen alle Tabellenblätter einer Arbeitsmappe durchlaufen werden. Dazu müssen Sie zuerst herausfinden, wie viele Tabellenblätter eine Arbeitsmappe überhaupt enthält.

Zu diesem Zweck können Sie die Eigenschaft COUNT abfragen. Das folgende Makro zeigt, wie Sie diese Eigenschaft in der Praxis einsetzen:

Sub ZeigeBlattAnzahl()
Dim Anzahl As Integer
Anzahl = Worksheets.Count
MsgBox "Die aktuelle Arbeitsmappe enthält " & _
 Anzahl & " Tabellen."
End Sub

Das Makro liest die Anzahl der Tabellenblätter der aktuellen Arbeitsmappe aus und stellt diese Anzahl mit einem Hinweistext in einem Fenster dar. Die folgende Abbildung demonstriert, wie das Ergebnis aussehen kann:

Ein Fenster informiert über die Anzahl der Tabellenblätter

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11. Damit rufen Sie den VBA-Editor auf. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro zu starten, drücken Sie innerhalb von Excel die Tastenkombination ALT F8.

  • 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.

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"