Mehrfachsuche in Listbox

Private Sub Suchen_Click()
Dim lngRow As Long, lngColumn As Long, i As Long
Dim strSearchText As String
'Dim strTeilSuchbegriff As String  
Dim strgSuchbegriff As String
Dim ArrayListbox1 As Variant
Dim objLbx As Object

Set objLbx = Me.ListBox1

ArrayListbox1 = Me.ListBox1 'Komplette Listbox1 im Array "zwischenspeichern"  

strgSuchbegriff = Me.TextBox1

'Alle Markierungen aufheben  
With objLbx
For lngRow = 0 To .ListCount - 1
.Selected(lngRow) = False
Next
End With

'Wenn Leerzeichen am Ende des Suchstrings steht, dieses löschen  
If Right$(strgSuchbegriff, 1) = " " Then 'Wenn das letzte Zeichen ein Leerzeichen ist, gibt es keine Suchtreffer  
strgSuchbegriff = Left(strgSuchbegriff, Len(strgSuchbegriff) - 1) 'Also letztes Leerzeichen entfernen  
Else 'Sonst nichts entfernen  
End If

'Suchstring festlegen  
If Trim$(strgSuchbegriff) <> "" Then  
strSearchText = "*" & Trim$(strgSuchbegriff) & "*"  
End If

With objLbx
.MultiSelect = fmMultiSelectMulti
arrSearchTerms = Split(strgSuchbegriff, " ", -1, vbTextCompare) 'die Suchbegriffe nach Leerzeichen trennen  
    
'Suche jedes Wort  
For i = 0 To UBound(arrSearchTerms) 'Schleife für jedes Wort  
strgSuchbegriff = "*" & Trim$(arrSearchTerms(i)) & "*" 'Teil-Suchbegriff  
    'Suche durchführen  
    For lngRow = 0 To .ListCount - 1
    For lngColumn = 0 To .ColumnCount - 1
    If .List(lngRow, lngColumn) Like strgSuchbegriff Then
    .Selected(lngRow) = True
    Exit For
    End If
    Next lngColumn
    Next lngRow
Next i
End With

'Jetzt alles, was nicht markiert ist aus der Listbox löschen  
With objLbx
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) = False Then
'objLbx.RemoveItem (i)  
End If
Next
End With
End Sub

With objLbx
.MultiSelect = fmMultiSelectMulti
arrSearchTerms = Split(strgSuchbegriff, " ", -1, vbTextCompare) 'die Suchbegriffe nach Leerzeichen trennen  

For lngColumn = 0 To .ColumnCount - 1
For lngRow = 0 To .ListCount - 1
found = 0
    For i = 0 To UBound(arrSearchTerms) 'Schleife für jedes Wort  
    strgSuchbegriff = "*" & Trim$(arrSearchTerms(i)) & "*" 'Teil-Suchbegriff  
    'Wenn Treffer, dann soll zum nächsten Suchbegriff gewechselt werden  
    If .List(lngRow, lngColumn) Like strgSuchbegriff Then
    'verlasse diesen Suchbegriff und nehme den nächsten  
    Exit For
    End If
    found = found + 1
    Next
    'wenn der Zähler mit der an Anzahl der Sucbegriffe übereinstimmt  
     If found = UBound(arrSearchTerms) + 1 Then
     .Selected(lngRow) = True
End If
Next
Next
End With

'Jetzt alles, was nicht markiert ist aus der Listbox löschen  
With objLbx
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) = False Then
'objLbx.RemoveItem (i)  
End If
Next
End With