Hallo nette Leute im Forum,
wer könnte mir die Formel korrigieren: Es soll in D summiert werden von E bis IV mit For i aufgrund B = gefüllt (Optimal: von unten bis einschl. Zeile 3):
Welcher Fehler?
&ltpre&gt
Sub Summenformel()
Dim i As Integer
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Rows.Row
' ActiveSheet.Range("D" & i).FormulaLocal = "=SUMME(E & i , IV & i)"
ActiveSheet.Range("D" & i).Formula = "=SUM(E" & i & ",IV" & i & ")"
Next i
End Sub&lt/pre&gt
Danke im voraus für Hilfe.
Gruß
Horst