ich habe folgenden Code, um die Liste einer ComboBox zu sortieren.
Diese Liste steht auf einem Tabellenblatt in den Zellen A1:A100.
Weiß jemand vielleicht eine Ergänzung, mit der die doppelten Einträge aussoriert werden können?
Private Sub UserForm_Initialize()
With cmbArtikel
Range("A1:A100").Select
Selection.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
Vielen Dank
Gruß Andi.4