Hallo,
Option Explicit
Sub Namen_auflisten()
Dim intI As Integer
ActiveWorkbook.Sheets.Add Before:=Worksheets(1)
ActiveSheet.Name = "Übersicht"
For intI = 1 To Worksheets.Count
Range("A" & intI) = Worksheets(intI).Name
Next
End Sub
- öffne die relevante Arbeitsmappe und drücke die Tastenkombi [Alt+F11]
- es öffnet sich der VBA-Editor
- im linken Fenster ist Deine Arbeitsmappe mit den Baum aller Arbeitsblätter aufgelistet
- markiere dort den Eintrag "
DieseArbeitsmappe"
- wähle im Menü "
Einfügen" des VBA-Editors den Eintrag "
Modul"
- es öffnet sich rechts ein neues Fenster, in welches Du, den vorher kopierten, obigen Code einfügst
- betätige das Schließkreuz des Editors um wieder in den Excelteil der Arbeitsmappe zu gelangen.
Wenn Du alles richtig gemacht hast kannst Du nun das Makro mit dem Namen "
Namen_auflisten" starten.
Das Makro erzeugt ein neues Arbeitsblatt mit den Namen "
Übersicht" und listet dort in Spalte A alle Arbeitsblatt-Namen der Arbeitsmappe auf.
Gruß
Rainer