Alle Tabellenblätter einer Excel-Arbeitsmappe per Makro auflisten

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:

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.