Dynamisches Summieren in VBA

Sub SummeBerechnen()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim StartRow As Long
    Dim EndRow As Long
    Dim SumRange As Range
    Dim Cell As Range
    
    ' Set the worksheet where you want to perform the operation  
    Set ws = ThisWorkbook.Sheets("Budgetplanung")  
    
    ' Find the last row in column C  
    LastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row  
    
    ' Initialize the starting row  
    StartRow = 0
    
    ' Loop through the rows  
    For Each Cell In ws.Range("C2:C" & LastRow)  
        ' Check if the cell contains "Summe"  
        If Cell.Value = "Summe" And StartRow = 0 Then  
            ' Calculate the starting row  
            StartRow = Cell.Row + 1
        ElseIf StartRow > 0 And Cell.Value = "" Then  
            ' Calculate the sum range  
            EndRow = Cell.Row - 1
            ' Sum the values in column D  
            ws.Cells(StartRow, "D").Value = WorksheetFunction.Sum(ws.Range("D" & StartRow & ":D" & EndRow))  
            ' Reset the starting row  
            StartRow = 0
        End If
    Next Cell
    
    ' Check if there is a remaining sum range  
    If StartRow > 0 Then
        ' Sum the values in the last group  
        ws.Cells(StartRow, "D").Value = WorksheetFunction.Sum(ws.Range("D" & StartRow & ":D" & LastRow))  
    End If
End Sub