Inhaltsverzeichnis aller Tabellenblätter einfügen

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.

Drucken