Hallo ihr Excelspezialisten,
ich habe im Archiv gesucht aber leider nichts passendes gefunden.
Ich möchte gerne mit dem nachfolgendem Code die ComboBox nach Alphabet sortiert haben.
Könnt ihr mir bitte helfen, was in diesen Code eingefügt werden muss, damit dies geschieht.
<pre>Private Sub UserForm_Activate()
Dim objDic As Object
Dim Bereich As Range
Dim Zelle As Range
Application.ScreenUpdating = True
Me.ComboBox1.Clear
Set objDic = CreateObject("Scripting.Dictionary")
With Sheets("Hilfstabelle")
Set Bereich = .Range(.Range("T2"), .Range("T2").End(xlDown)) 'relevanten Bereich ermitteln
' MsgBox Bereich.Address
End With
For Each Zelle In Bereich
objDic(Zelle.Value) = 0 'Nur Unikate sammeln
Next
ComboBox1.List = objDic.Keys 'Unikate der ComboBox zuweisen
Application.ScreenUpdating = False
Do While UF02_AbrechnÜbersicht.Visible
DoEvents
If nFocus = 1 Then
ListBox2.TopIndex = ListBox1.TopIndex
ElseIf nFocus = 2 Then
ListBox1.TopIndex = ListBox2.TopIndex
End If
Loop
End Sub</pre>
Wenn möglich Version aufsteigend und absteigend.
Besten Dank für eure Hilfe.
Gruss
Peter