Anzahl der Tabellenblätter bestimmen

01. Dezember 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So stellen Sie die Tabellenanzahl fest

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

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

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.

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"