Gruppe
Allgemein
Bereich
Kopieren
Thema
Formel bis zur letzten Zeile der Nebenspalte kopieren
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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