Gruppe
Allgemein
Problem
Wie kann ich eine Formel in Spalte B bis zur letzten Zelle mit Inhalt in Spalte A kopieren? In Spalte A sind die Zellen nicht durchgehend belegt.
StandardModule: basMain
Sub BisZurLetztenZeile()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2").Formula = "=sum($A$1:$A2)"
Range("B2:B" & iRow).FillDown
End Sub