Moooin,

ich hab unsere kleinen Gespräche ja fast schon ein wenig vermisst ^^ Ich versuche gerade auch mal den Code ein bisschen nachzuvollziehen. EIgentlich scheiter ich nur an dem Codeschnipsel hier:

 

If (Target.Row Mod 4) <> 0 Then Cells(Target.Row, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 32)))
    
            '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

Kannst du mir das Vorgehen des Programms ein bisschen erklären? Was genau mach "Row Mod" ? Was ist die Target Row? In dem Fall Spalte D? 
Aufgrund dieser Unwissenheit müsste ich den Programmablauf im Folgenden erraten. Die Variable "spalte" nimmt den Wert "Target.Column" an, also auch 4 schätze ich mal? 

Dann folgt eine For-Schleife, die von 4 + 0 im ersten Durchlauf bis zum Ende der letzten Zeile (bzw. bis zum Punkt läuft wo das Wort "Summe" aufzufinden ist. Die Schleife summiert die Werte aus der vierten Reihe von Spalte 4/5?

nach dem Kommentar bei "End If" Komischerweise klappt ja auch alles aber da ich nich nur copy&paste machen möchte sondern auch gern verstehe was im Programm genau passiert wollte ich dich fragen ob du mir den Code ein bisschen in wenigen Worten erklären könntest ?