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