|
Hallo!
Ich durchsuche mit folgendem Code eine Listbox nach dem Inhalt eines Textfeldes.
Er findet dabei auch den Suchtext richtig, es wird aber nicht weitergesucht, wenn es mehrere gleiche Übereinstimmungen in der Listbox gibt.
Wie kann ich es jetzt bewerkstelligen, dass er nicht nach dem ersten erfolgreichen Suchergbnis aufhört, sondern beim nächsten Klick auf die Schaltfläche "Suchen" nach dem nächsten Ergebnis sucht usw.?
Dim i As Integer, ii As Integer
Dim vntList, strTxt As String, arrSelected()
strTxt = LCase(tb_SucheStichwort)
vntList = lb_Übersicht.List
ReDim arrSelected(lb_Übersicht.ListCount - 1)
For i = 0 To lb_Übersicht.ListCount - 1
For ii = 0 To lb_Übersicht.ColumnCount - 1
arrSelected(i) = InStr(LCase(vntList(i, ii)), strTxt) > 0
If arrSelected(i) Then Exit For
Next
Next
With lb_Übersicht
For i = 0 To .ListCount - 1
.Selected(i) = arrSelected(i)
Next
End With
LG MEKS
|