Hallo Vinzenz,
Danke erstmal, bin am Probieren...;
Zwei Fragen parallel:
Gibt es eine Alternative zur MsgBox in Bezug auf "debugging" bzw. Testen, ob man das richtige erwischt hat?
Dim ws As Worksheet
Dim counter As Integer
counter = 1
For Each ws In ActiveWorkbook.Worksheets
MsgBox ws.Name
Worksheets("Tabelle3").Range("A" & counter).Value = ws.Name
counter = counter + 1
Next
"funzt" auf jeden Fall schonmal.
die Excel-VBA-Referenz und insbesondere das Excel-Objektmodell sind sehr hilfreich. Beides ist Bestandteil der Online-Hilfe.
Du meinst "online" oder meinst Du die Hilfe die mit Excel mitkommt?
Gruß
jobo