Begriff in ListBox suchen
27.05.2008 13:32:00
otto
kann man einen beliebigen Begriff suchen, der irgendwo in der Listbox steht?
habe im Netz diesen Code gefunden, funktioniert aber nicht so richtig.
Private Sub TextBoxsucheLB_Change()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If Not InStr(.List(i), TextBoxsucheLB.Text) = 0 Then
.Selected(i) = True
End If
Next
End With
End Sub
Gruß
otto