Alle Blattnamen einer Arbeitsmappe auflisten (Inhaltsverzeichnis) - (VBA)


Alle Blattnamen einer Arbeitsmappe auflisten (Inhaltsverzeichnis) - (VBA)

Inhaltsverzeichnis mit VBA erzeugen

Mit dem folgenden Makro können Sie sich alle Blattnamen der aktuellen Arbeitsmappe in das aktive Tabellenblatt, beginnend in der Zelle A1 schreiben lassen. Sie können sich somit ganz schnell und einfach ein Inhaltsverzeichnis der aktuellen Arbeitsmappe anlegen.

 

Sub Blattname()

I = 1

For Each Blatt In Sheets

Range("A" & I) = Blatt.Name

I = I + 1

Next

End Sub