Servus,
auch wenn du vielleicht noch unterwegs bist möchte ich dir trotzdem meine Erkenntnisse mal mitteilen:
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
Irgendwo hier muss der Fehler liegen, denn wie ich merke, werden die Spaltenenden irgendwie nicht in die Berechnungen mit einbezogen, was folglich dazu führt, dass die Summen am Ende, in Spalte B NICHT stimmen, weil die Summen in der Spalte B schon nicht stimmt.
Zur Erklärung wenn ich im Folgenden Buchstabe,Zahl schreibe z.B B6 dann heißt das SPALTE B, Reihe 6
Also ganz klares Beispiel:
Der Datenbereich aus E9 bis AE10 ergibt 293! Demnach würde ich auch erwarten, dass das Ergebnis von 293 auch in dieB10 eingetragen wird. Das passiert allerdings nicht. Ergo glaube ich, dass der Fehler im obigen Code liegen MUSS.
Für dich zum Verständnis vielleicht was ich damit will:
Es gibt eine Spalte, die heißt B ^^, ich nenne von nun an "Zwischensumme"
Die Spalte B6 soll in Reihe 6 das Ergebnis des Datenbereichs E5 bis AE6 eintragen.
Die Spalte B10 soll in Reihe 10 das Ergebnis des Datenbereichs E10 bis AE11 eintragen
Die Spalte B14 soll in Reihe 14 das Ergebnis des Datenbereichs E14 bis AE15 eintragen usw.
Das soll das eigentliche Ziel des Codes oben sein.
Wie es scheint wird aber nicht der vollständige Bereich mit einbezogen.
Demnach ist die Summe in Spalte B am Ende auch falsch, da schon in dem "Zwischensummenbereich" Werte nicht miteinfließen :S
|