Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Summenformel unter Zahlenreihe eintragen

Gruppe

Vba

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