Gruppe
Allgemein
Problem
Wie kann ich die Summenformel in eine variable Anzahl von Zellen untereinander eintragen?
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