Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Summenformel per VBA eintragen

Gruppe

Berechnen

Problem

Wie kann ich die Summenformel in eine variable Anzahl von Zellen untereinander eintragen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub cmdBerechnen_Click()
   Dim iRow%
   iRow = Cells(Rows.Count, 1).End(xlUp).Row
   Range("F2") = "=sum(A2:E2)"
   With Range("F2:F" & iRow)
      .FillDown
   End With
   Range("A1").Select
End Sub