Anzahl der Tabellenblätter feststellen

10. Juli 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So bestimmten Sie die Anzahl der Tabellenblätter

Eine Arbeitsmappe kann eine unterschiedliche Anzahl von Blättern enthalten. Neben Tabellenblättern können sich auch Diagrammblätter in einer Tabelle befinden. Falls Sie wissen möchten, wie viele Tabellenblätter sich in der aktiven Arbeitsmappe befinden, können Sie das über die Eigenschaft "Count" abfragen. Das folgende Makro zeigt, wie das geht:

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

Das Makro zählt nur Tabellenblätter dabei werden auch Blätter mitgezählt, die ausgeblendet sind. Zu Demonstrationszwecken zeigt das Makro die Anzahl der enthaltenen Tabellenblätter in einem Fenster an:

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

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"