Nutzen Sie unser 
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 einem Tabellenblatt ein Inhaltsverzeichnis aller Tabellenblätter erzeugen.
Der nachfolgende Code fügt in das erste Tabellenblatt ab Zelle A1 die Namen der in der Arbeitsmappe vorhandenen Tabellenblätter untereinander ein.Public Sub Inhaltsverzeichnis_einfügen() '** Inhaltsverzeichnis aller Tabellenblätter '** im erten Tabellenblatt ab Zeile A1 einfügen '** Dimensionierung der Variablen Dim blatt As Object Dim zeile As Double zeile = 1 '** Alle Blätter durchlaufen For Each blatt In Sheets ActiveSheet.Cells(zeile, 1).Value = blatt.Name zeile = zeile + 1 Next blatt End Sub
Fügen Sie den Code einfach in ein entsprechendes Code-Modul ein und führen Sie das Makro mit der Funktionstagste [F5] im VBA-Editor aus.
