' Schnelle Suche innerhalb einer ListBox
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
        As Long, ByVal wParam As Long, ByVal lParam As _
        String) As Long
 
Private Const LB_FINDSTRING = &H18F
' Prüft, ob ein Wert in einer ListBox enthalten ist
' und gibt als Ergebnis den ListIndex zurück
' (-1, wenn nicht vorhanden)
 
Public Function IsInListe(Liste As ListBox, _
  ByVal Item As String) As Integer
 
  IsInListe = SendMessage(Liste.hwnd, _
    LB_FINDSTRING, -1, Item)
End Function
Dim Index As Integer
Dim sSuchText As String
 
sSuchText = "Gesuchter Eintrag"
Index = IsInListe(List1, sSuchText)
 
' Eintrag vorhanden...?
If Index > -1 Then
  ' ...dann Marierung auf den Eintrag setzen!
  List1.ListIndex = Index
End If
 
' Prüft, ob ein Wert in einer ListBox enthalten ist,
' wobei die Groß-/Kleinschreibung keine Rolle spielt,
' und gibt als Ergebnis den Listndex zurück
' (-1, wenn nicht vorhanden)
 
Public Function IsInListe2(List1 As ListBox, _
  ByVal Item As String) As Integer
 
  Dim I As Integer
  Dim Index As Integer
 
  Index = -1
  With List1
    For I = 0 To .ListCount - 1
      If .List(I) Like Item Then
        ' Eintrag gefunden
        Index = I: Exit For
      End if
    Next I
  End With
 
  IsInList2 = Index
End Function
' Suche auch innerhalb der Einträge
Dim Index As Integer
Dim sSuchText As String
 
sSuchText = "*teilbegriff*"
Index = IsInListe2(List1, sSuchText)
 
' Eintrag vorhanden...?
If Index > -1 Then
  ' ...dann Marierung auf den Eintrag setzen!
  List1.ListIndex = Index
End If