Autofill per VBA
Maris
diesen Code habe ich noch aus einem älteren Thread, leider habe ich mich damals falsch ausgedrückt und er funktioniert nicht. Kann mir jemand helfen....
Es soll der letzte Wert in Spalte D ermittelt werden und die Formeln aus Spalte A,B,C bis dahin runterkopiert werden.
Sub AFill()
Dim iFirst As Long, iLast As Long
On Error Resume Next
iFirst = Cells(Rows.Count, 1).End(xlUp).Row
iLast = Cells(Rows.Count, 2).End(xlUp).Row
Range("A" & iFirst).AutoFill Destination:=Range("A" & iFirst & ":A" & iLast)
End Sub
https://www.herber.de/bbs/user/74340.xls
Wie in der Beispielmappe die gelben Zellen markiert sind.
Lg,
maris
Anzeige