Tipps & Tricks 19.10.2001, 20:00 Uhr

Alle Blattnamen auflisten - Excel

Es soll ein Makro für Excel geben, das auf einem neuen Tabellenblatt die Namen aller folgenden Arbeitsblätter auflistet. Dieses Makro habe ich bisher nirgends finden können.
Folgendes Makro fügt vor dem ersten vorhandenen Tabellenblatt ein neues namens "Register" ein und listet dann alle vorhandenen Blätter auf.
Sub AlleBlattnamen()
Sheets.Add Before:=Sheets(1)
ActiveSheet.Name = "Register"
Range("A1").Select
i = 1
For Each Blatt In Sheets
Range("A" & i) = Blatt.Name
i = i + 1
Next
Exit Sub
End Sub
Bevor Sie das Makro erneut starten, vielleicht weil neue Blätter hinzugekommen sind, müssen Sie das alte "Register-Blatt" löschen.
Wie Sie ein neues Makro erstellen können, wird hier [1] erklärt.

Kommentare

Es sind keine Kommentare vorhanden.