13.06.2018, 10:19
Ich habe einen Problem und komme nicht voran.
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 nicht was es soll. Bei manchen Zeilen stimmt bei manchen wieder nicht oder nur ein mal vorkommende Zeilen werden auch gelöscht. Bitte um Hilfe
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 nicht was es soll. Bei manchen Zeilen stimmt bei manchen wieder nicht oder nur ein mal vorkommende Zeilen werden auch gelöscht. Bitte um Hilfe
Code:
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, 3) + Cells(j, 3)
Rows(j).Delete
End If
Next j
Next i
End Sub