Das angegebene Object konnte nicht gefunden werden

Private Sub cmdNew_Click()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Dim eintrag     As Long
    Dim txtPosNr    As String
    Dim iZeile      As Long
    Dim i           As Integer
    Dim seekArb       As Range  '  Integer  
    Dim ufelemente() As Variant  ' Integer  
    Dim indextb()   As Range  ' Varinat  
    Dim Antwort     As Long
    Dim txtnummer   As Long
    Dim wsat        As Worksheet
    Dim mvntWert      As Variant
    Dim rngRow        As Range
    Dim lZeile        As Long
    Dim neusatz       As Boolean

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ufelemente = Array("txtPosNr", "txtnummer", "txtAnrede", "txtNachname", "txtVorname", "txtStrasse", "txtPlz", "txtWohnort", "txtTelefon", _  
    "txtGemarkung", "txtJagdbezirk", "txtFlurstueck", "txtFlurstueckNr", "txtFlaeche", _  
    "txtGemarkung2", "txtJagdbezirk2", "txtFlurstueck2", "txtFlurstueckNr2", "txtFlaeche2", _  
    "txtGemarkung3", "txtJagdbezirk3", "txtFlurstueck3", "txtFlurstueckNr3", "txtFlaeche3", _  
    "txtGemarkung4", "txtJagdbezirk4", "txtFlurstueck4", "txtFlurstueckNr4", "TxTFlaeche4", _  
    "TxTZahlung")  

''''''     lZeile = wsat.Cells(Rows.Count, 1).End(xlUp).Row + 1  

''''''        Dim iZeile&, i&  

''''''          iZeile = lstData.List(lstData.ListIndex = -1) '   , 0)  

        With Tabelle1.ListObjects(1).DataBodyRange
        For i = 1 To 31
           Cells(iZeile, i) = Controls("txtPosNr" & i)  
        Next i
    End With


    eintrag = 0
    If seekArb(txtPosNr, rngRow) Then
        Else
            Exit Sub
    End If
    For i = 0 To UBound(ufelemente)
        If Trim(Me.Controls(ufelemente(i))) <> Trim(rngRow.Cells(, indextb(i)).Value) Then
            mvntWert = Trim(rngRow.Cells(, indextb(i)).Value)
            eintrag = eintrag + 1
        End If
    Next i
    If eintrag > 0 Then cmdSave_Click
    Antwort = MsgBox("Wollen Sie einen neuen Datensatz anlegen?", 4, "Neuer Datensatz")  
    If Antwort = 6 Then
        lstData.ListIndex = lstData.ListCount - 1
        eintrag = 0
        For i = 2 To UBound(ufelemente)
            If Trim(Me.Controls(ufelemente(i))) <> "" Then eintrag = eintrag + 1  
        Next i
        If txtPosNr = lZeile - 1 And txtnummer = "NeuMtgld" And eintrag = 0 Then  
            MsgBox "Es liegt noch ein unbearbeiter neuer Datensatz vor!" & vbNewLine & "Es wird keine neuer Satz erstellt!", , "Abbruch Datensatzerstellung"  
            Exit Sub
        End If
        neusatz = True
        wsat.Cells(lZeile, 1) = CStr(lZeile)
        wsat.Cells(lZeile, 2) = CStr("NeuMtgld")  
        wsat.Cells(lZeile, 1) = WorksheetFunction.Max(wsat.Columns(1)) - 1
        lstData.AddItem
        lstData.List(lstData.ListCount - 1, 1) = CStr("NR" & lZeile)  
        lstData.ListIndex = lstData.ListCount - 1
        neusatz = False
    End If
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Call Calculate
End Sub