Ich habe große Dateien, in denen über 35 Blätter enthalten sind. Wie kann ich ein Inhaltsverzeichnis über diese Blätter einfach und schnell erstellen?
Gruß
Markus
Sub test()
Dim i As Integer
Dim b As Range
Set b = Range("c1") 'hier erster Eintrag
For i = 1 To Worksheets.Count
b.Offset(i - 1, 0) = Sheets(i).Name
Next i
End Sub
Gruß Matthias