ich habe ein kleines Problem: Ich habe in einer UserForm einer Combobox über RowSource etwa 2000 Einträge zugewiesen. Diese Inhalte sind (wie im Tabellenblatt) nicht sortiert und können sich mehrfach wiederholen.
Meine Frage: Ist es möglich die Combobox-Inhalte alphabetisch zu sortieren und vielleicht sogar die doppelten Einträge zu entfernen?
Habe das Sortieren schon mit folgendem Makro aus dem Archiv probiert, ging aber leider nicht:
Private Sub UserForm_Activate()
ComboBox3.RowSource = "c1:c2000"
Dim iLast As Integer, iNext As Integer
Dim iTmp As Integer
With UserForm1.ComboBox3
For iLast = 0 To .ListCount - 1
For iNext = iLast + 1 To .ListCount - 1
If .List(iLast) > .List(iNext) Then
iTmp = .List(iLast)
.List(iLast) = .List(iNext)
.List(iNext) = iTmp
End If
Next iNext
Next iLast
End With
End Sub