Ist es möglich eine mit AddItem gefüllte Combobox zu sortieren?
Besten Dank für einen Tipp
Gruss
TOM
'
' die Werte aus Tabelle1, Spalte A sollen in die ComboBox
' eingelesen und alphabetisch aufsteigend sortiert werden.
'
Private Sub UserForm_Activate()
Dim lZeile As Long ' For/Next Zeilen-Index
Dim lIndxA As Long ' For/Next Index - außen
Dim lIndxI As Long ' For/next Index - innen
Dim sTemp As String ' temporärer Zwischenspeicher
'
' Combobox zuvor löschen :
'
ComboBox1.Clear
'
' Combobox mit Werten aus Spalte A füllen :
'
For lZeile = 2 To [A65536].End(xlUp).Row
Me.ComboBox1.AddItem Cells(lZeile, 1)
Next
'
' Combobox sortieren :
'
For lIndxA = 0 To Me.ComboBox1.ListCount - 1
For lIndxI = 0 To lIndxA - 1
If Me.ComboBox1.List(lIndxI) > Me.ComboBox1.List(lIndxA) Then
sTemp = Me.ComboBox1.List(lIndxI)
Me.ComboBox1.List(lIndxI) = Me.ComboBox1.List(lIndxA)
Me.ComboBox1.List(lIndxA) = sTemp
End If
Next lIndxI
Next lIndxA
End Sub