Tipps & Tricks
13.03.2006, 10:15 Uhr
Anzahl der Tabellenblätter einer Mappe ermitteln
Problem: Gibt es eine Formel, mit der die Anzahl der Tabellen in einer Arbeitsmappe ausgegeben werden kann? Mit der Formel =INFO(dateienzahl) komme ich nicht weiter, da die Anzahl Tabellen aller geöffneten Arbeitsmappen gezählt werden. Oder muss das Problem allenfalls über ein Makro gelöst werden? Wenn ja, was ist der einfachste Lösungsweg?
Lösung: Das erste der folgenden Makros gibt die Anzahl der Tabellenblätter in einer Messagebox aus.
Sub BlaetterZaehlen()
For Each Blatt In Sheets
i = i + 1
Next
MsgBox "Anzahl Blätter in dieser Mappe = " & i
End Sub
For Each Blatt In Sheets
i = i + 1
Next
MsgBox "Anzahl Blätter in dieser Mappe = " & i
End Sub
Das zweite Makro trägt die entsprechende Anzahl in die Zelle A1 ein. Passen Sie die Zielzelle bei Bedarf an Ihre eigenen Bedürfnisse an.
Sub BlaetterZaehlen2()
For Each Blatt In Sheets
i = i + 1
Next
Sheets(1).Select
Range("A1").Value = i
End Sub
For Each Blatt In Sheets
i = i + 1
Next
Sheets(1).Select
Range("A1").Value = i
End Sub
Kommentare
Es sind keine Kommentare vorhanden.
