eine ComboBox wird befüllt mit:
cboCombo1.List = .Range(.Cells(7, 1), .Cells(letzteZeile, 1)).Value
anschließend sortiert mit:
Function SortierenCombobox()
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 frmBuchungen.cboCombo1
If .ListCount = 0 Then Exit Function
i_Erster = 0
i_Letzter = .ListCount - 1
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
End With
End Function
Danach sind die Einträge in der CB zwar sortiert, aber der ListIndex eines gewählten Eintrags stimmt nicht mit der Position des Eintrags in der CB überein.
Gibt es eine Lösung bei der gleich beim Einlesen der ListIndex korrekt dem gewählten Eintrag zugeordnet wird?
mfg
reiner