Nochmals suchen in Listbox
31.05.2003 13:54:36
Jens
ich hatte gestern schon mal im Forum geschrieben.
Habe jetzt im Netz schon eine passable Lösung gefunden, die etwas geändert werden müsste.
Ich will nicht den gefundenen Datensatz aus Listbox1 in Listbox2 kopieren sondern nur in Listbox1 auswählen. Wer kann nochmal helfen?
Private Sub TextBox1_Change()
Dim sSuchText As String
Dim i As Integer
ListBox2.Clear
sSuchText = TextBox1.Text
If sSuchText = "" Then Exit Sub
If Left(sSuchText, 1) = "*" Then
sSuchText = Right(sSuchText, Len(sSuchText) - 1)
For i = 0 To ListBox1.ListCount - 1
If InStr(1, ListBox1.List(i), sSuchText, 1) <> 0 Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
Else
For i = 0 To ListBox1.ListCount - 1
If UCase(sSuchText) = _
UCase(Left(ListBox1.List(i), Len(sSuchText))) Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End If
End Sub
Danke Jens