Mit nachfolgendem Code sortiere ich einen Spaltenbereich der Spalte A und kopiere dann jeden vorkommenden Eintrag in Spalte C.
Das klappt soweit, nur dass ich den ersten Wert zwei Mal erhalte. Den könnte ich nun einfach löschen, lieber wäre mir jedoch zu verstehen, was an meinem Code falsch ist, dass ich den ersten Wert zweimal erhalte.
Wer kann mir helfen?
Danke und Gruss, Peter
Sub xUnique()
Dim rSource As Range
With Worksheets("_AA_")
Set rSource = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
rSource.Sort key1:=rSource, Order1:=xlAscending, Header:=xlNo
rSource.AdvancedFilter Action:=xlFilterCopy, CopytoRange:=.Range("C2"), unique:=True
End With
End Sub
End If
Next WS
End Sub