Ich würde gerne die Summenformeln für die Aufsummierung jeder zweiten Spalte, ab Spalte 10, in die Zellen BC2 bis CH2 eintragen, bekomme aber einen Laufzeitfehler
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