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
|