Moin! Also ausführliche Antwot wird erst heuten Nachmittag. bin gleich on the road. :-) Kannst du aber bitte mal noch die Summe aus Spalte AF und AG nachsteuern. WEnn ich oben die Werte in Excel reinkopiere komme ich nur bis AE. Und gleich noch eine Frage. Steht in Spalte AG wirklich eine Summe unten? Der Code fängt doch eigentlich nur Änderungen bis AF ab (s. Zeile 18 im Code - bei intersect). UNd noch was könnte falsch sein. In Zeile 27 bei der hier.
Cells(zeile + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(zeile, 5), Cells(zeile + 1, 27)))
wird für die Summe der Bereich Ezeile bis AAZeile+1 ausgewählt (wobei das ggf. später mal AAZeile+2 stehen sollte, damit die dritte Zeile mit Werten auch berücksichtigt wird). Sollte das nicht auch bis AG gehen sprich statt der 27 eine 33 beim letzten Cells?
Wie geschrieben ausführlich nachher, bitte aber mal die letzten zwei Zeilen noch nachreichen. Achja, die wichtigeste Frage. In welcher Zeile steht die Gesamtsumme (auch da wo in A Summe steht oder tiefer) und wie kommt die dahin (der Code oben schreibt das ja nicht, wenn ich das so überblicke)? VG
|