Gruppe
Funktion
Bereich
Vba
Thema
Summenformel unter Zahlenreihe eintragen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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