Alternative zu FillDown beim kopieren
edie
mit dem nachfolgenden Code kopiere ich die Formel nach unten:
Sub test()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
'Range("B4").FormulaR1C1 = "=RC[-1]"
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("B4:B" & iRow).FillDown
End Sub
Wenn aber anstelle der festen Zelle B4 und Range("B4:B" & iRow).FillDown
die Formel von einer ActiveCell nach unten kopiert werden soll, da habe ich ein Problem.
Was muss angepasst werden?
In den einschlägigen Büchern habe ich nix gefunden.
Hat jemand eine Idee oder Alternative zu Range("B4:B" & iRow).FillDown und
kann helfen?
Vielen Dank im Voraus.
Grüße edie
Anzeige