' Volltext-Suche im ListView
' Rückgabe: Index (Zeile) der Fundstelle
Public Function lvw_Search(lvw As ListView, _
  ByVal sText As String, _
  Optional ByVal lStartRow As Integer = 1) As Integer
 
  Dim itemX As ListItem
  Dim i As Integer
  Dim u As Integer
  Dim iRow As Integer
 
  ' Groß-/Kleinschreibung ignorieren
  sText = LCase$(sText)
 
  For i = lStartRow To lvw.ListItems.Count
    Set itemX = lvw.ListItems(i)
 
    With itemX
      If InStr(LCase$(.Text), sText) > 0 Then
        ' Gefunden in der Text-Eigenschaft
        iRow = i: Exit For
 
      Else
        ' SubItems durchsuchen
        For u = 1 To lvw.ColumnHeaders.Count - 1
          If InStr(LCase$(.SubItems(u)), sText) > 0 Then
            ' Gefunden in einem der SubItems
            iRow = i: Exit For
          End If
        Next u
      End If
    End With
  Next i
 
  lvw_Search = iRow
End Function