Inhaltsverzeichnis aller Tabellenblätter einfügen

102025



Möchten Sie einen Überblick über alle in einer Excel-Arbeitsmappe vorhandenen Tabellenblätter (Sheets) gewinnen, so können Sie dies erreichen indem Sie in ein Tabellenblatt ein Inhaltsverzeichnis aller Tabellenblätter einfügen.

Der nachfolgende Code fügt in das erste Tabellenblatt ab Zelle A1 die Namen der vorhandenen Tabellenblätter ein.

Public Sub Inhaltsverzeichnis_einfügen()
'Inhaltsverzeichnis aller Tabellenblätter
'im erten Tabellenblatt ab Zeile A1 einfügen

Dim blatt As Object
Dim zeile As Double
zeile = 1

For Each blatt In Sheets
    ActiveSheet.Cells(zeile, 1).Value = blatt.Name
    zeile = zeile + 1
Next blatt

End Sub