Ich habe eine Liste die sich ständig verändert. In meinem Markor überprüfe ich immer zuerst die Anzahl Zeilen (Bsp. 45).
Danach möchte ich die "45" in den Rang-Bereich bekommen (Bsp. K2 bis K45).
Den Fehler erhalte ich immer in der Zeile mit "Selection.AutoFi...
Wenn ich mit der MSG-Box den Wert "j" überprüfe erhalte ich die 45!
Besten Dank im Voraus für Euere Hilfe
Gruss Markus
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Range("K1").Select
ActiveCell.FormulaR1C1 = "Dauer(Std.)"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/3600"
Range("K2").Select
Dim i
i = Cells(Rows.Count, 1).End(xlUp).Row
' MsgBox "Die letzte besetzte Zelle in Spalte A ist" & i
j = "K" & i
' MsgBox "j= " & j
Selection.AutoFill Destination:=Range("K2: & j "), Type:=xlFillDefault
Range("K2: & j ").Select