Gruppe
Funktion
Problem
Wie kann ich über VBA unterhalb der letzten beschriebenen Zelle in Spalte C die Summenformel eintragen lassen? Der erste Wert befindet sich in Zelle C1, die Zahlenreihe weist Lücken auf.
StandardModule: basMain
Sub Addieren()
Dim rng As Range
Set rng = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
rng.Formula = "=SUM(A1:A" & rng.Row - 1 & ")"
End Sub