Listbox durchsuchen
19.01.2020 23:15:05
Thomas
ich möchte gern meine Listboxen durchsuchen.
Mit den unten stehenden Code klappt das auch schon richtig gut.
Das einzige was ein wenig stört ist, das der Code zwischen Groß und Kleinschreibung unterscheidet.
Wenn ich z.B. nach "stein" suche wird der "Stein" nicht gefunden.
Kann man den Code dahingehend ändern?
Dim lngColumn As Long
Dim strSearchText As String
For lngIndex = 1 To 3
If Trim$(neueform1.TextBoxsucheLB.Text) "" Then
strSearchText = "*" & Trim$(neueform1.TextBoxsucheLB.Text) & "*"
With neueform1.Controls("TB_Kalender" & lngIndex)
.MultiSelect = fmMultiSelectMulti
For lngRow = 0 To .ListCount - 1
.Selected(lngRow) = False
For lngColumn = 0 To 8 '.ColumnCount - 1
If .List(lngRow, lngColumn) Like strSearchText Then
.Selected(lngRow) = True
Exit For
End If
Next
Next
End With
End If
Next
Besten dank im voraus für euer Interesse
mfg thomas