mein ansatz:
For j = 1 To z Step 1
Worksheets("sheet1").Range("C1:C" & z).Formula = "sum(A" & j & ?
Next j
komm mit der zuweisung der elemente nicht zurecht - bekomm immer fehlermeldungen!
danke im voraus!
Sub t()
Dim z As Long
With Worksheets("Sheet1")
For z = 1 To .Range("A65536").End(xlUp).Row
.Range("C" & z).Formula = "=SUM(A" & z & ":B" & z & ")"
Next z
End With
End Sub