' 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) = 1 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) = 1 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

Private Sub txtSuch_Change()
  Dim nRow As Long
 
  If txtSuch.Text <> "" Then
    nRow = lvw_Search(ListView1, txtSuch.Text)
    If nRow > 0 Then
      With ListView1
        Set .SelectedItem = .ListItems(nRow)
        .SelectedItem.EnsureVisible
      End With
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de