0:30h und ich steh auf dem Schlauch.
Ich habe eine weitere Arbeitsmappe geöffnet und möchte dort u.a. eine Formel eintagen (ID) und runterkopieren.
LZ_ee = wbZiel.Sheets("data1").Cells(Rows.Count, 1).End(xlUp).Row
wbZiel.Sheets("data1").Range("A2").FormulaLocal = "=ZEILE()-1"
With wbZiel.Worksheets("data1")
.Range("a2:a2").AutoFill Destination:=Range("a2:a" & LZ_dd), Type:=xlFillDefault ' gelb, kann nicht ausgeführt werden.
End With
Wo ist der Fehler?Gruss
Fred