Sortierung in ComboBox zweispaltig erfolgt falsch
29.07.2008 09:13:46
Josef
mit folgendem Code werden in der cboNamen3 (ComboBox) die Werte sortiert. Ich habe jedoch in dieser CB einen zweispaltigen Eintrag. Es wird in dieser CB mit diesem code jedoch nur die erste spalte sortiert. und die zweite wird außer acht gelassen. Dadurch ensteht eine komplett falsche Zuordnung.
Wie und wo müßte ich hier bitte den Code so verändern, damit die zweite spalte mitsortiert wird?
Sortieren_CboN2 wird mit "Call Sortieren_CboN2" am Schluß des Codes von
Private Sub cboNamen3_Enter() eingefügt
Public Sub Sortieren_CboN2()
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 frmStellenplan.cboNamen3
If .ListCount = 0 Then Exit Sub
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 Sub
Danke
Josef