Hallo David! Also hier mal der Code für das Summieren. Bin mir aber noch nicht sicher, ob der wirklich in die Worksheet_Cahnge sollte. Wenn der Code nämlich die Summe einträgt, zündet das Ereignis. Dadurch wird aber wieder eine Summe eingetragen -> da ist dann wieder die Endlosschleife. :-) Man könnte natürlich prüfen, ob in der letzten Zelle was eingetragen wurde und dementsprechend reagieren. WEiß aber nicht, ob die letzte Zelle der Spalte auch händisch geändert werden kann. Wen ja, kann man sich nicht darauf verlassen, dass dort vom Makro eine Summe eingetragen wurde und ein erneuten Summieren unterbinden. Probiere es erstmal in einer eigenen Sub. Für das Change müsste man noch mehr zur Tabelle wissen (wo, was geändert wird - darauf reagiert ja das Change Ereignis). VG
letztespalte = ActiveSheet.Cells(3, Columns.Count).End(xlToLeft).Column - 1 'warum -1, damit fehlt dieletzte Spalte, könnte zum ehler führen
For k = 5 To letztespalte
summe = 0
letztezeile = ActiveSheet.Cells(Rows.Count, k).End(xlUp).Row
'jeden vierten wert kopieren
For l = 5 To letztezeile Step 4
summe = summe + ActiveSheet.Cells(l, k)
Next l
'jetzt eintragen
ActiveSheet.Cells(letztezeile + 4, k) = summe
Next k
|