Muster vorher:
Ident Preis
358652 350
358652 100
352222 254
352222 250
358111 545
Muster Nachher (soll):
358652 450
352222 504
358111 545
Wie löse ich dieses Problem?
Sub doppler_add()
Dim i&, j&
With Sheets("tabelle1")
For i = .Range("a65536").End(xlUp).Row To 2 Step -1
For j = 2 To i - 1
If .Cells(i, 1) = .Cells(j, 1) Then
.Cells(j, 2) = .Cells(i, 2) + .Cells(j, 2)
.Cells(i, 1).EntireRow.Delete
End If
Next j
Next i
End With
End Sub
Sub doppler_add() ---------> Name des Makros vermute ich mal
Dim i&, j& ---------> verbergen?
With Sheets("tabelle1")---------> Ziel
For i = .Range("a65536").End(xlUp).Row To 2 Step -1--------->Datenbereich und?
For j = 2 To i - 1--------->
If .Cells(i, 1) = .Cells(j, 1) Then--------->
.Cells(j, 2) = .Cells(i, 2) + .Cells(j, 2)--------->
.Cells(i, 1).EntireRow.Delete--------->
End If--------->
Next j--------->
Next i--------->
End With--------->
End Sub
--------->