Keine Markierung wenn keine Eingabe
25.10.2021 20:36:48
Daniel
Ich habe unterstehender Code hier im Forum gefunden. Nun habe ich das Problem, wenn ich mit der Backspace Taste die Eingabe in der TextBox lösche, plötzlich alles in der ListBox markiert wird. Wie kann ich dies umgehen?
Besten Dank für Eure Hilfe.
Gruss Daniel E
Private Sub TextBox57_Change()
Dim i As Integer, ii As Integer
Dim vntList, strTxt As String, arrSelected()
strTxt = LCase(TextBox57)
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)
Next
End With
End Sub