ich kenne mich leider in VBA noch nicht so gut aus und habe daher eine Frage:
Ich habe eine Excelliste mit 7 Spalten. In der Spalte B habe ich KUndennummer stehen, die mehrfach vorkommen. In der Spalte D ist ab und an eine Zahl eingetragen (entweder ist die Zelle leer oder eine 1). Nun soll jede Kundennummer nur 1x in der Liste auftauchen und die Zahlen in der Spalte D addiert werden.
Ich habe den VBA-Code nun soweit das die Kundennummer nur 1x in der Liste auftaucht, doch bekomme ich die Berechnung nicht hin. Mein Code bisher lautet:
Sub Doppelte_löschen()
Range("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Range("B1").Select
nr = ActiveCell
zellende = Range("B" & Rows.Count).End(xlUp).Row
Do
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = nr Then
Selection.EntireRow.Delete
ActiveCell.Offset(-1, 0).Range("A1").Select
End If
nr = ActiveCell
Loop Until ActiveCell = Range("B" & zellende + 1)
End Sub
Ich wäre sehr dankbar, wenn mir jemand die Befehle in den Code einflicken könnte oder mir verständlich erklärt wie es geht.
Gruß
Klaus