Fehlermeldung 'Laufzeitfehler 424' Objekt erforderlich

Dim Zeile As Long

Dim sucheF As Long

    

    With tabKunde_ent

       sucheF = .Range("B" & .Rows.Count).End(xlUp).Rows

        If tabKunde_ent.Range("B" & sucheF).Value = "" Then

            MsgBox "Kein Kunde in "Kunde" eingetragen"

            Exit Sub

        End If

        For Zeile = 1 To letzteZeile

            tabAuswertung.Range("Kunde_Auswertung").Value = .Range("B" & Zeile).Value

            tabAuswertung.Calculate