Spalte summieren. Nur letzten Wert fortlaufend

[PetrolMaxxe]

Hallo Weitzi,

was verstehst du unter fortlaufend?
Meinst du, dass in Spalte D das Ergebnis immer 2 Zeilen unter dem letzten Datensatz stehen soll?
Wenn ja, dann geht das mit VBA.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lz As Long, i As Long
    lz = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lz
        Cells(i, 4) = WorksheetFunction.Sum(Cells(i, 1) + Cells(i, 2))
    Next i
    Cells(lz + 1, 4) = ""
    Cells(lz + 2, 4).FormulaLocal = "=SUMME(D2:D" & lz & ")"
End Sub

Gruß Uwe