Vorauswahl in einer Listbox
07.08.2008 09:09:40
Mario
hier im Forum habe ich bereits eine tolle Hilfe gefunden, mit der ich den Inhalt einer Listbox (in einer Userform) sortieren kann. Diesen Code habe ich jetzt etwas angepasst.
Leider wird jetzt auch der Eintrag "Alle" sortiert, sodass dieser irgendwo in der Listbox auftaucht.
Dieser Wert soll aber sozusagen als Vorauswahl angezeigt werden. Wer kann mir bei diesem Problem helfen?
Viele Grüße
Mario
Private Sub lbx_Namen_click()
Dim iLast As Integer, iNext As Integer
Dim iTmp As String
Dim iListIndex As Integer
With lbx_Namen
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