Bekomme dauernd: Laufzeitfehler 1004: Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.

Sub Sverweis()
Debug.Print Now

Dim i As Long, Zeile As Long, letzteZeile As Long
Dim Schlüssel As Variant, UnterVA As Variant, Einzelgewicht As Variant, Stückzahl As Variant, Bruttoentgelt As Variant, Nettoentgelt As Variant
Dim SchlüsselPosy As String
Dim SchlüsselAM As String
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim ZelleSchlüssel As Range
Dim Bereich As Range

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Abgleich")
Set Ziel = Arbeitsmappe.Worksheets("Abgleich")

letzteZeile = Datenbasis.Range("A10000").End(xlUp).Row

Set Bereich = Datenbasis.Range("A2:A" & letzteZeile)

For i = 2 To Ziel.Range("H10000").End(xlUp).Row
    SchlüsselPosy = Ziel.Range("H" & i).Value
    
    With Datenbasis
        Set ZelleSchlüssel = Bereich.Find(SchlüsselPosy)
            If ZelleSchlüssel Is Nothing Then
                UnterVA = "FEHLER"
                Schlüssel = "FEHLER"
                Einzelgewicht = "FEHLER"
                Stückzahl = "FEHLER"
                Bruttoentgelt = "FEHLER"
                Nettoentgelt = "FEHLER"
                
                Ziel.Range("K" & i).Value = UnterVA
                Ziel.Range("L" & i).Value = Schlüssel
                Ziel.Range("M" & i).Value = Einzelgewicht
                Ziel.Range("N" & i).Value = Stückzahl
                Ziel.Range("O" & i).Value = Bruttoentgelt
                Ziel.Range("P" & i).Value = Nettoentgelt
            Else
                Zeile = ZelleSchlüssel.Rows(6)
                SchlüsselAM = .Range("A" & Zeile).Value
                UnterVA = .Range("B" & Zeile).Value
                Einzelgewicht = .Range("C" & Zeile).Value
                Stückzahl = .Range("D" & Zeile).Value
                Bruttoentgelt = .Range("E" & Zeile).Value
                Nettoentgelt = .Range("F" & Zeile).Value
                
                Ziel.Range("K" & i).Value = UnterVA
                Ziel.Range("L" & i).Value = Schlüssel
                Ziel.Range("M" & i).Value = Einzelgewicht
                Ziel.Range("N" & i).Value = Stückzahl
                Ziel.Range("O" & i).Value = Bruttoentgelt
                Ziel.Range("P" & i).Value = Nettoentgelt
                Set ZelleSchlüssel = Nothing
            End If
    End With