Private Function lvw_ItemExists(oListView As ListView, _
  ByVal sText As String) As ListItem
 
  Dim oItem As ListItem
  Dim sData() As String
  Dim i As Integer
  Dim nIndex As Long
  Dim bExists As Boolean
 
  bExists = False
  If oListView.ListItems.Count < 1 Then Exit Function
 
  sData = Split(sText, vbTab)
  With oListView
    nIndex = 1
    Do
      Set oItem = .FindItem(sData(0), , nIndex)
      If oItem Is Nothing Then Exit Do
 
      ' 1. Spalte: Treffer
      ' jetzt alle weiteren Spalten vergleichen
      bExists = True
      For i = 1 To .ColumnHeaders.Count - 1
        If oItem.SubItems(i) <> sData(i) Then
          bExists = False: Exit For
        End If
      Next i
      nIndex = oItem.Index + 1
    Loop Until bExists Or nIndex > .ListItems.Count
  End With
 
  If bExists Then
    Set lvw_ItemExists = oItem
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de