Schönen guten Morgen,
nun in aller Ausführlichkeit. VIelen Dank dass du bei diesem Thema an der Sache bleibst! Deine Unterstützung hilft mir enorm!
ich verwende diesen Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim spalte As Long
Dim zeilesum As Long
Dim versatz As Long
Dim letztezeile As Long
Dim zeile As Long
Dim summe As Long
Dim l As Long
Dim vorletztespalte As Long
vorletztespaltefipa = Cells(3, Columns.Count).End(xlToLeft).Column - 1
zeilesum = Application.Match("Summe", ActiveSheet.Columns(1), 0)
'nur wenn eine Zelle geändert wurde ausführen
If Target.Count = 1 Then
'prüfen ob Spalte E bis M
If Not Intersect(Target, ActiveSheet.Columns("E:AF")) Is Nothing Then
letztezeile = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
'nur wenn ab Zeile 5 bis Zeile vor der Summe
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
'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
End If
End If
End If
End Sub
Mein Problem: Die Summe aus Spalte B wird nicht korrekt errechnet. Alle anderen Summen aus den Spalten E bis zu letzten Spalte sind korrekt. Aber der Wert aus Spalte B spinnt leider... Es kommt 9199 raus.
Ich hoffe das bleibt hier lesbar:
Die Zahlentabelle die du hier siehst sind meine Spaltenergebnisse von Spalte E bis Spalte AG:
Wenn du hier alle markierst kommst du auf das Ergebnis von 11.110
99 |
7647 |
3 |
4 |
385 |
573 |
4 |
23 |
12 |
40 |
3 |
1 |
3 |
54 |
199 |
9 |
7 |
30 |
27 |
197 |
31 |
2 |
2 |
290 |
548 |
2 |
1246 |
0 |
-44 |
0 |
0 |
0 |
-112 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
-175 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
0 |
Wenn ich meinen kompletten Datenbereich markiere komme ich ebenfalls auf 11.110.
Wenn ich nun die EINZELNEN SUMMEN aus der Spalte B markiere komme ich auch auf 11.110
Mein Problem ist tatsächlich nur das, dass da wo die Summe der gesamten Spalte B steht einfach ein falsches Ergebnis steht, nämlich 9199. Und das ist auf jeden Fall falsch
Ich würde dir gern einen Screen machen, aber ich weiß nicht wie ich hier nen lesbaren Screen reinbekomme :S
Defakto ist damit alles auf den Punkt gebracht. Vergiss bitte meine vorherigen Beiträge, das waren zuviele Posts und zu durcheinander, sorry.
PS: Wenn es noch möglich wäre würde ich gerne in SPALTE D Das Ergebnis aus meiner soeben hier gepostetetn Zahlenreihe auch per Makro eintragen.
Also das heißt, dass ich das Ergebnis der oberen Zahlenreihe 99, 7647, 3, 4, 385 usw. LINKS neben der 99, also in Spalte D eintragen möchte. Darunter,die Summe aus 0, -44, 0, 0,0. -112 eintragen, und darunter die Summe aus 0,0,0,0,0,0 wenn es nicht zuviel Umstände macht?
Aber das akute Problem ist aktuell zumindest tatsächlich die Summe aus Spalte B, die "Einzelsummen" in der Spalte werden defakto 100 % addiert! Woher ich das weiß? Wenn ich alle "Einzelsummen" markiere (Einzelsummen ergibt sich ja im Code aus der Zeile 24) komme ich auf das Ergebnis von 11110. Die "Endsumme" aus Spalte B zeigt mir allerdings 9199 an :S
|