Ein Fenster informiert über die Anzahl der Tabellenblätter
Ein Fenster informiert über die Anzahl der Tabellenblätter

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

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

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.