Schönen guten Morgen, 

nun in aller Ausführlichkeit. VIelen Dank dass du bei diesem Thema an der Sache bleibst! Deine Unterstützung hilft mir enorm! 
ich verwende diesen Code: 

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim spalte As Long
Dim zeilesum As Long
Dim versatz As Long
  
Dim letztezeile As Long
Dim zeile As Long
Dim summe As Long
Dim l As Long
Dim vorletztespalte As Long

vorletztespaltefipa = Cells(3, Columns.Count).End(xlToLeft).Column - 1
  
zeilesum = Application.Match("Summe", ActiveSheet.Columns(1), 0)
'nur wenn eine Zelle geändert wurde ausführen
If Target.Count = 1 Then
'prüfen ob Spalte E bis M
    If Not Intersect(Target, ActiveSheet.Columns("E:AF")) Is Nothing Then
       
        letztezeile = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
        'nur wenn ab Zeile 5 bis Zeile vor der Summe
        If Target.Row > 4 And Target.Row < zeilesum Then    'hier noch die Änderung zur Prüfung
            For zeile = 5 To letztezeile
                Cells(zeile + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(zeile, 5), Cells(zeile + 1, 27)))
                zeile = zeile + 3
            Next
              
            'jetzt summieren
            'jetzt die Spalte summieren
            spalte = Target.Column
              
            summe = 0
                   
            'jeden vierten wert addieren
            versatz = (Target.Row Mod 4)
            If versatz = 0 Then
            Else
                For l = 4 + versatz To zeilesum - 1 Step 4
                    summe = summe + ActiveSheet.Cells(l, spalte)
                Next l
            End If
            'jetzt eintragen
            versatz = (Target.Row Mod 4 - 1)
            If versatz = -1 Then
            Else
                ActiveSheet.Cells(zeilesum + versatz, spalte) = summe
            End If
        End If
        
    End If
End If
        
End Sub

Mein Problem: Die Summe aus Spalte B wird nicht korrekt errechnet. Alle anderen Summen aus den Spalten E bis zu letzten Spalte sind korrekt. Aber der Wert aus Spalte B spinnt leider... Es kommt 9199 raus. 

Ich hoffe das bleibt hier lesbar: 
Die Zahlentabelle die du hier siehst sind meine Spaltenergebnisse von Spalte E bis Spalte AG: 
Wenn du hier alle markierst kommst du auf das Ergebnis von 11.110 

Wenn ich meinen kompletten Datenbereich markiere komme ich ebenfalls auf 11.110. 

Wenn ich nun die EINZELNEN SUMMEN aus der Spalte B markiere komme ich auch auf 11.110 

Mein Problem ist tatsächlich nur das, dass da wo die Summe der gesamten Spalte B steht einfach ein falsches Ergebnis steht, nämlich 9199. Und das ist auf jeden Fall falsch 

Ich würde dir gern einen Screen machen, aber ich weiß nicht wie ich hier nen lesbaren Screen reinbekomme :S 
Defakto ist damit alles auf den Punkt gebracht. Vergiss bitte meine vorherigen Beiträge, das waren zuviele Posts und zu durcheinander, sorry. 

PS: Wenn es noch möglich wäre würde ich gerne in SPALTE D Das Ergebnis aus meiner soeben hier gepostetetn Zahlenreihe auch per Makro eintragen. 
Also das heißt, dass ich das Ergebnis der oberen Zahlenreihe 99, 7647, 3, 4, 385 usw. LINKS neben der 99, also in Spalte D eintragen möchte. Darunter,die Summe aus 0, -44, 0, 0,0. -112 eintragen, und darunter die Summe aus 0,0,0,0,0,0 wenn es nicht zuviel Umstände macht? 

Aber das akute Problem ist aktuell zumindest tatsächlich die Summe aus Spalte B, die "Einzelsummen" in der Spalte werden defakto 100 % addiert! Woher ich das weiß? Wenn ich alle "Einzelsummen" markiere (Einzelsummen ergibt sich ja im Code aus der Zeile 24) komme ich auf das Ergebnis von 11110. Die "Endsumme" aus Spalte B zeigt mir allerdings 9199 an :S