Es liegt eine Tabelle mit 15 Spalten vor. Ab der Spalte C2 steht jeweils in jeder Zelle aus der Spalte C eine Zahl drin.
Ab der Spalte D2 stehen Kundennummern drin. Falls eine Kundennummer mehrfach vorkommt soll es nur ein Mal existieren und die Zahl soll sich jedes mal addieren.
So hatte ich es mir vorgestellt aber es tut leider nicht. Bitte um Hilfe
Sub tester()
letzte_Zeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To letzte_Zeile
For j = 2 To letzte_Zeile
If Cells(i, 4).Value = Cells(j, 4).Value Then
Cells(i, 3) = Cells(i, 2) + Cells(j, 2)
Rows(j).Delete
End If
Next j
Next i
End Sub