Hallo zusammen,

ich versuche aktuell ca. 20 Berechnungen in eine zu komprimieren. Dabei geht es um eine simple Variation der Berechnung (s.u.), bei der in jeder Spalte alle als "Level 3" Markierten überschriften die dazugehörigen "Level 4" Unterüberschriften zusammenrechnen sollen. Herausforderung dabei ist, dass es ungleiche Abstände gibt und VBA daher finden muss, wo der nächste "Level 4" liegt und wann ein "Level 3" Abschnitt zuende ist (dies löst die Berechnung für mich).

Offen ist jedoch die jeweiligen Spalten als Variable einzufügen. D.h., wie kann ich  es schaffen diese Rechnung in den Spalten Q (17) bis AV (37) durchzuführen, ohne sie ca. 20 mal leicht angepassst zu kopieren?

Vielen vielen Dank!
Max

Beispiel für Spalte U (21)

For i = FirstRT To NewLastRT

    If Cells(i, 3).Value = 3 And IsNumeric(Cells(i, 3)) Then

        j = i
        txt = ""
        Do While IsNumeric(Cells(j + 1, 3)) And (Cells(j + 1, 3).Value = 4 Or Cells(j + 1, 3).Value = 5)
            If Cells(j + 1, 3).Value = 4 Then
                txt = txt & "U" & j + 1 & ","
            End If
            j = j + 1
        Loop
        If Len(txt) > 0 Then
            txt = Left(txt, Len(txt) - 1)
        End If
    
        If Len(txt) > 0 Then
            
            Cells(i, 21).Formula = "=SUM(" & txt & ")"

        Else
            Cells(i, 10).Value = "0"
        End If
    End If
Next i