Ich möchte von mehreren Dateien die Namen sämtlicher Arbeitsblätter in einer Datei auflisten. Ich wollte mit einer Schleife alle Arbeitsblätter durchlaufen, aber irgendwie funktioniert mein code an dieser Stelle nicht, er steigt gar nicht erst in die Schleife ein:
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook
Zeile = Workbooks("Zusammenfassung").Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
Workbooks("Zusammenfassung").Sheets("Parameter").Range("A" & Zeile) = Blatt.Name
Next Blatt
Wie kann ich sonst alle Arbeitsblätter durchlaufen? Danke für eure Hilfe!
Gruß
Mathias