Kombobox sortieren in VBA?

1 Antwort

Sub SortComboBox()
Dim iLast As Integer, iNext As Integer
Dim iTmp
With ComboBox1
    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
===
ODER ein Eigenes ActiveX programmieren was dies automatisch kann
===
ODER du sortierst zunächst die Daten in Excel, bevor sie mit additem in die Combo geladen werden.
VB oder C# ..oder haben auch die Eigenschaft sort so, dass man nur dies ausführen muss um eine sortierte Liste zu erhalten. ggf von VBA Abstand nehmen.