Anzahl der Tabellenblätter bestimmen

Wenn Sie in einem Makro feststellen möchten, wie viele Tabellenblätter eine Arbeitsmappe enthält, können Sie die Eigenschaft Count verwenden. Indem Sie diese Eigenschaft auf das Objekt Worksheets anwenden, ermittelt Excel die Anzahl der Tabellenblätter.

Das folgende Makro zeigt, mit welchen Kommandos Sie die Anzahl der Tabellenblätter in der aktiven Arbeitsmappe feststellen können:

Sub ZaehleTabellenblaetter()
Dim Anzahl As Integer
Anzahl = ActiveWorkbook.Worksheets.Count
MsgBox "Die aktive Arbeitsmappe enthält " & _
Anzahl & " Tabellenblätter."
End Sub

In einem Fenster zeigt das Makro an, wie viel Tabellenblätter in der Arbeitsmappe enthalten sind. Die folgende Abbildung zeigt, wie dieses Fenster aussehen kann:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html