beiliegenden code habe ich aus einem anderen des Forums "abgewandelt" auf meine bedürfnisse. Jetzt möchte ich nur noch erreichen, dass die Einträge in Spalte A bei "A200" enden; derzeit läut es bis ca. Zeile 2010 durch:
Sub AnfSaldo_Berechnen()
Dim leZeile As Integer
Dim iRow%
leZeile = Range("A200")
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A6") = "=e5" ' Ermittlung Anfangssaldo
With Range("A6:A200" & iRow)
.FillDown
End With
Range("A1").Select
End Sub
Vielen Dank!
mfg