Anzahl der Tabellenblätter per VBA bestimmen

Viele Makros sind dazu gedacht, alle Tabellenblätter einer Arbeitsmappe der Reihe nach zu durchlaufen, um darin eine bestimmte Aufgabe zu erledigen. Dazu legen Sie eine Schleife an, in der die Blätter einer Mappe der Reihe nach durchlaufen werden.

Wenn Sie feststellen möchten, wie viele Tabellen eine Arbeitsmappe enthält, können Sie die Eigenschaft Worksheets.Count verwenden. Das folgende Makro zeigt, wie Sie mit dieser Eigenschaft die Anzahl der Tabellenblätter in der aktiven Arbeitsmappe abfragen:

Sub StelleTabellenanzahlFest()
Dim A As String
Dim Anzahl As Integer
Anzahl = ActiveWorkbook.Worksheets.Count
A = MsgBox("Diese Arbeitsmappe hat " & Anzahl & _
" Tabellenblätter.", vbOKOnly, "Tabellenanzahl")
End Sub

Nach dem Start zeigt Excel die Anzahl der Tabellenblätter in einem kleinen Fenster an, wie die folgende Abbildung demonstriert.

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