Alle Tabellenblätter einer Excel-Arbeitsmappe per Makro auflisten

09. November 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

So erstellen Sie eine Liste aller Tabellenblätter der aktiven Arbeitsmappe über ein VBA-Makro

Einer Liste aller Tabellenblätter der aktiven Arbeitsmappe

Einer Liste aller Tabellenblätter der aktiven Arbeitsmappe

Sie möchten eine Tabelle aller Blätter der aktiven Arbeitsmappe erstellen? Verwenden Sie das folgende Makro:

Sub ZeigeTabellenblaetter()
Dim Zeile As Long
Dim Blatt As Worksheet
Dim Neublatt As Worksheet
Set Neublatt = ActiveWorkbook.Worksheets.Add
Zeile = 1
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name <> Neublatt.Name Then
Neublatt.Cells(Zeile, 1) = Blatt.Name
Zeile = Zeile + 1
End If
Next Blatt
End Sub

Das Makro legt in der aktiven Arbeitsmappe ein neues Tabellenblatt an, in dem die Namen aller Tabellenblätter gespeichert werden. Lediglich das neue Übersichtsblatt wird von der Liste ausgenommen. Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:

Einer Liste aller Tabellenblätter der aktiven Arbeitsmappe

Um das Makro einzugeben, öffnen Sie in Excel über die Tastenkombination ALT F11 den VBA-Editor. Wählen Sie in diesem Editor das Kommando EINFÜGEN – MODUL und geben Sie das Makro ein. Aus Excel heraus starten Sie das Makro über die Tastenkombination ALT F8.

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"