ich lade mit folgendem Code eine Combobox:
Private Sub CommandButton8_Click()
Dim objDic As Object
Dim Bereich As Range
Dim Zelle As Range
Set objDic = CreateObject("Scripting.Dictionary")
With Sheets("Makros")
Set Bereich = .Range(.Range("A17"), .Range("A17").End(xlDown))
End With
For Each Zelle In Bereich
objDic(Zelle.Value) = 0
Next
ComboBox1.List = objDic.keys
End Sub
Nun möchte ich den Inhalt der Combobox noch sortieren, finde aber keine Sortier-Eigenschaft.
Kann mir da jemand weiter helfen ?
Danke
Jockel