Hallo
in ein Normales Modul
Sub QWERZ
Dim Z1 As Integer, LR As Long
Z1 = 2 ' Daten ab dieser Zeile
LR = Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
Cells(LR + 2, 5).Resize(1, 21).FormulaR1C1 = "=SUM(R" & Z1 & "C:R[-3]C)" '21 = Spalte Z(=26) - Spalte E(=5)
End Sub
|