nachstehenden Code hab ich hier aus dem Forum. Funktioniert auch soweit aber er muß nur in der 4. Spalte suchen, beginnend mit den Anfangsbuchstaben des Textes, also keine Übereinstimmungen innerhalb des Textes finden.
Danke Euch.
VG Jörg
Private Sub TextBox20_Change()
Dim i As Integer, ii As Integer
Dim vntList, strTxt As String, arrSelected()
strTxt = LCase(TextBox20)
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