Ich hätte da wieder mal was, ich würde gerne eine formel die ich im Excel habe bei bedarf (sprich angelehnt an A1) so lange automatisch runterkopieren wir in der Spalte A ein Wert steht.
Wie kann man das über Makro lösen?
Dank für die hilfe
Sub formelcopy()
With ActiveSheet
i = 2
While .Cells(1,i).Value<>""
.Cells(2,i).FormulaR1C1 = .Cells(2,i-1).FormulaR1C1
Wend
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A:A").Value<>"" then
formelcopy
End if
End Sub