dieser Code (gefunden im Netz) sortiert eine Liste alphabetisch bei gleichzeitiger Entfernung der Duplikate. Meine Frage wäre, wie man diesen umformen kann, sodass dass der Output nicht alphabetisch sondern nach vorkommender Häufigkeit sortiert?
Option Explicit
Sub SortierenLieferanten()
ThisWorkbook.Sheets("Auf").Range("N:N").Copy
Sheets("Tabelle6").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
With ActiveSheet.range("A2:A1000")
.RemoveDuplicates Columns:=1, Header:=xlNo
.Sort Key1:=ActiveSheet.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _
xlSortNormal
End With
End Sub
VG