Sub SortierenCombobox1()
Dim i_Erster As Integer
Dim i_Letzter As Integer
Dim i_Aktuell As Integer
Dim i_Nächster As Integer
Dim s_buffer As String
With Sheets("Tabelle 1").ComboBox1
If .ListCount = 0 Then Exit Sub
i_Erster = 0
i_Letzter = .ListCount - 1
'Sortieren der Einträge
For i_Aktuell = i_Erster To i_Letzter
For i_Nächster = i_Aktuell + 1 To i_Letzter
If .List(i_Aktuell) > .List(i_Nächster) Then
s_buffer = .List(i_Nächster)
.List(i_Nächster) = .List(i_Aktuell)
.List(i_Aktuell) = s_buffer
End If
Next i_Nächster
Next i_Aktuell
'doppelte Einträge aus der ComboBox entfernen
i_Aktuell = i_Erster
Do While i_Aktuell < i_Letzter
i_Nächster = i_Aktuell + 1
Do While i_Nächster <= i_Letzter
If .List(i_Aktuell) = .List(i_Nächster) Then
.RemoveItem (i_Nächster)
i_Letzter = i_Letzter - 1
i_Nächster = i_Nächster - 1
End If
i_Nächster = i_Nächster + 1
Loop
i_Aktuell = i_Aktuell + 1
Loop
End With
End Sub