Summe bis letzte Spalte
03.12.2021 11:50:49
Simon
Ich dachte, das müsste so in der Art gehen (fleißig abgeschrieben), aber irgendwo fehlt es jetzt am Makro können:
Sub test()
Range(Cells(1, 25), Cells(Range("a1").End(xlUp).Row, 25)).FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
End Sub