Private Sub Command1_Click()
On Error Resume Next
 
Dim lTmp1 As Long
Dim bFound As Boolean
 
  With Listview1
    bFound = False
    ' prüft  ob der text aus text1 in der aktuellen zeile/celle 1 vorhanden ist
    For lTmp1 = 1 To .ListItems.Count
    ' prüft ob text in der aktuellen zeile/celle 1 und 3 vorhanden ist
    ' If Text1 = .ListItems(lTmp1).SubItems(3) + .ListItems(lTmp1).Text Then 
      If Text1 = .ListItems(lTmp1).Text Then
        bFound = True
        Exit For
      End If
    Next
     ' gibt ne meldung aus, wenn der eintrag schon vorhanden ist
    If bFound Then
      .ListItems(lTmp1).Selected = True
      MsgBox "Der Eintrag is bereits vorhanden!", vbInformation Or vbOKOnly, _
        App.Title
    Else
    Set lItem = .ListItems.Add(, , Text1)
            lItem.ListSubItems.Add , , Text2.Text
            lItem.ListSubItems.Add , , Text3.Text
             ' usw.......
            lItem.Selected = True
    End If
    .SetFocus
  End With
 
End Sub