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.
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
