Textboxsuche in Listbox (keine UF)
13.02.2023 07:32:21
Frank
ich bräuchte bitte mal eure Hilfe... ich habe in einer Tabelle eine Listbox( Listbox1) und eine Textbox(Textbox5)
ich möchte gerne das,wenn ich in der Textbox nach Zahlen oder Text suche, mir die Zeile oder die Zeilen mit den Übereinstimmungen in der Listbox angezeigt werden..
ich habe diesen Code gefunden.
Dim I As Integer, ii As Integer
Dim vntList, strTxt As String, arrSelected()
strTxt = LCase(TextBox1)
vntList = Listbox1.List
ReDim arrSelected(Listbox1.ListCount - 1)
For I = 0 To Listbox1.ListCount - 1
For ii = 0 To Listbox1.ColumnCount - 1
arrSelected(I) = InStr(LCase(vntList(I, ii)), strTxt) > 0
If arrSelected(I) Then Exit For
Next
Next
With Listbox1
For I = 0 To .ListCount - 1
.Selected(I) = arrSelected(I)
.TopIndex = .ListIndex
Next
End With
Das Problem ist, das mir nur eine Zeile angezeigt wird bzw makiert wird, obwohl 3 oder mehrere Übereinstimmungen vorhanden sind... wenn die Textbox leer ist, wird mir immer der letzte Eintrag in der Listbox angezeigt und alle anderen Einträge sind weg.
ich weiss wie es in einer Userform geht, da klappt es auch, aber ich möchte auf UF verzichten.