0160-93 82 19 37 | Nehmen Sie 
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
