Private Function Itemexists(ByVal strDatZeit As String, ByVal strZGES As _
  String, ByVal strTPR As String, ByVal strTextwert As String) As Boolean
        '
        'Prüft ob ein Eintrag im Fenster_Lebenslauf schon existiert
        '
        Dim LstViwItm As Object
        For Each LstViwItm In FensterLebenslauf.ListView1.Items
            If LstViwItm.Subitems(4).text = strTextwert And LstViwItm.Subitems( _
              1).text = strZGES And LstViwItm.Subitems(2).text = strTPR And _
              LstViwItm.text = strDatZeit Then
                Return True
            End If
        Next
        Return False
 
    End Function