bei der FormulaLocal.
Vielen Dank für Vorschläge :D
Dim i As Integer
Dim relevant As Integer
Dim Eintrag As Variant
Dim Zelle As Range
relevant = 0
For Each Zelle In Worksheets("Stunden").Range("bc2:ch2")
Eintrag = Worksheets("Stunden").Cells(2, 10 + relevant).Address()
Zelle.FormulaLocal = CStr("=SUMME(" & Zelle & ":" & Zelle & "00" & ")")
relevant = relevant + 2
Next Zelle