Selbst hinbekommen :) 

 

'Spaltensummen
            ActiveSheet.Cells(zeilesum, 4) = Application.WorksheetFunction.Sum(Range(Cells(zeilesum, 5), Cells(zeilesum, vorletztespaltefipa)))
            ActiveSheet.Cells(zeilesum + 1, 4) = Application.WorksheetFunction.Sum(Range(Cells(zeilesum + 1, 5), Cells(zeilesum + 1, vorletztespaltefipa)))
            ActiveSheet.Cells(zeilesum + 2, 4) = Application.WorksheetFunction.Sum(Range(Cells(zeilesum + 2, 5), Cells(zeilesum + 2, vorletztespaltefipa)))

Ich hab dabei die bisher ungenutzte Variable "vorletztespaltefipa" benutzt, die war ja bisher so lieblos im Code ohne jegliche Funktion. 

Lieber Gast, wenn ich den Thread verfolge kümmerst du dich so dermaßen intensivst um mein Problem, dass ich mich zwar SEHR SEHR FREUE dass es nun endlich zu 10000 % so funktioniert wie ich es mir vorgestellt habe, aber zugleich auch irgendwie schade finde. DIe Diskussion mit dir hat enormen Spaß gemacht, du hast mir extremst weitergeholfen - und ich kann gar nicht oft genug DANKE für deine Hilfe sagen, wirklich vielen lieben Dank!!!

Mit so einer großartigen Unterstützung hätte ich im Leben nicht gerechnet und ich bin mir sicher, dass ich das ohne dich auf jeden Fall nicht hinbekommen hätte. Du hast mit Sicherheit noch andere Dinge zu tun, und trotzdem hat es dich nicht davon abgehalten mir weiterzuhelfen und dich immer und immer wieder rangesetzt - wirklich einfach DANKE, danke und nochmals Danke!

Bald ist Wochenende - leider habe ich keine Zeit für nen Bierchen - aber wenn es so weit ist werde ich hier noch einmal schreiben und auf dich anstoßen! Ich bin zum einen glücklich und dankbar für das Ergebnis, aber ob du es mir glaubst oder nicht - noch dankbarer bin ich für deine Unterstützung, sowas habe ich im Internet wirklich noch nie erlebt! 

TAUSEND DANK LIEBER "GAST" !!!