Hallo!
Ich bekam von Fritz folgende Lösung:
Sub Summieren() Dim z, sp As Integer Dim ws1 As Worksheet Set ws1 = Worksheets("Tabelle1") anz = ws1.Cells(65536, 1).End(xlUp).Row suplus = 0 suminus = 0 For z = 2 To anz sp = 2 If ws1.Cells(z, 5) = ws1.Cells(z + 1, 5) Then If ws1.Cells(z, 9) > 0 Then suplus = ws1.Cells(z, 9) + suplus Else suminus = Abs(ws1.Cells(z, 9)) + suminus End If End If If ws1.Cells(z, 5) <> ws1.Cells(z + 1, 5) And ws1.Cells(z, 5) <> "" Then If ws1.Cells(z, 9) > 0 Then suplus = ws1.Cells(z, 9) + suplus Else suminus = Abs(ws1.Cells(z, 9)) + suminus End If ws1.Cells(z + 1, 12) = suplus / 2 - suminus suplus = 0 suminus = 0 End If Next End Sub
Ergebnis: Wenn die Zahlen in Spalte E ident sind, dann werden die Werte in Spalte I zusammengezählt und in Spalte L die Summer eingetragen.
Jetzt würde ich in dieser Art und Weise eine zusätzliche lösung suchen:
Wenn die Werte in Spalte ident, die Werte in Spalte B ident, die Werte in Spalte C ident sind, dann sollen die Werte in Spalte D zusammengezählt werden.
Beispiel:
SPA,SPB,SPC,SPD
1,01,101010,786
1,01,101010,2.089 = Summe 2875
1,02,101010,1
1,02,101010,1 = Summe 2
1,05,101010,3
1,05,101010,3 = Summe 6
Wie könnte man bitte hier das Makro so verändern, dass die Werte richtig zusammengezählt werden?
Danke
Josef