versuche mal nicht die Worksheets, sondern die Sheets zu zählen:
ThisWorkbook.Sheets.Count
Gruß
Margarete
das muss ein Tippfehler sein:
MsgBox ThisWorkbook.Sheets.Count
MfG, Michael
hast recht, das Topic heisst ja nicht "Blätter" zählen ;-)
MfG, Michael
Um die Anzahl der Arbeitsblätter in Excel zu ermitteln, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein:
Sub AnzahlTabellenblaetter()
MsgBox "Anzahl der Tabellenblätter: " & ThisWorkbook.Worksheets.Count
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle AnzahlTabellenblaetter und klicke auf Ausführen.
Dieser Code zeigt eine Nachricht mit der Anzahl der Tabellenblätter in deinem aktuellen Arbeitsbuch an.
Fehler: "Das Makro funktioniert nicht"
Lösung: Stelle sicher, dass du den Code korrekt kopiert hast und dass du in einem Arbeitsbuch mit mehreren Tabellenblättern arbeitest.
Fehler: "Die Anzahl der Blätter ist nicht korrekt"
Lösung: Achte darauf, dass du Worksheets.Count verwendest, um nur die Tabellenblätter zu zählen. Wenn du auch Diagrammblätter zählen möchtest, verwende Sheets.Count.
Neben VBA gibt es auch andere Möglichkeiten, die Anzahl der Arbeitsblätter in Excel zu zählen:
Direkte Zählung: Du kannst die Anzahl der Blätter direkt in Excel sehen, indem du die Blätter manuell zählst oder die Blätter auf einer Übersicht anzeigst.
Formeln: Eine Formel zur Zählung von Arbeitsblättern ist in Excel nicht direkt möglich, da Formeln keine Blätter zählen können. VBA ist hier die beste Lösung.
Hier sind einige praktische Beispiele zur Verwendung des VBA-Codes:
Anzahl aller Blätter ermitteln: Ändere den Code zu:
Sub AnzahlAlleBlaetter()
MsgBox "Anzahl der Blätter: " & ThisWorkbook.Sheets.Count
End SubDieser Code zählt alle Blätter, einschließlich Diagrammblätter.
VBA-Anpassungen: Du kannst den Code erweitern, um die Namen der Blätter anzuzeigen oder bestimmte Arbeitsblätter zu zählen.
Makros speichern: Speichere dein Arbeitsbuch im .xlsm-Format, damit die Makros erhalten bleiben.
Schnellzugriffe: Füge das Makro zu deiner Schnellzugriffsleiste hinzu, um es schneller ausführen zu können.
1. Wie zähle ich nur die sichtbaren Arbeitsblätter?
Du kannst den Code anpassen, um nur sichtbare Blätter zu zählen:
Sub AnzahlSichtbareBlaetter()
Dim count As Integer
count = 0
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
count = count + 1
End If
Next ws
MsgBox "Anzahl sichtbarer Arbeitsblätter: " & count
End Sub2. Kann ich die Anzahl der Arbeitsblätter in einer bestimmten Excel-Version ermitteln?
Ja, der Code funktioniert in allen modernen Excel-Versionen, die VBA unterstützen, wie Excel 2010, 2013, 2016 und 2019.