Anzahl der Tabellenblätter per VBA bestimmen

04. November 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie mit einem Makro feststellen, wie viele Tabellenblätter enthalten sind

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

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"