Spalte A und B vergleichen und Zeilen kopieren
09.08.2015 18:58:09
Anna
ich möchte gerne die Spalte A des Tabellenblattes "Kunden" mit der Spalte B des Tabellenblattes "Tabelle3" vergleichen.
Wenn es übereinstimmungen gibt soll die jeweilige Zeile(C:H) von Tabelle 3 in die Tabelle "Kunden" (G:H) kopiert werden.
Die Tabelle "Kunden" hat etwa 30000 Einträge, die Tabelle3 nur etwa 4000.
Beim Durchlaufen des Codes kommt der Fehler: "Anwendungs- oder objektdefinierter Fehler".
Public Function Zeilen_vergleichen()
Worksheets("Kunden").Activate
Range("A4").Select
Endi = Range("A65536").End(xlUp).Row
Worksheets("Tabelle3").Activate
Range("B2").Select
Endj = Range("A65536").End(xlUp).Row
For i = 1 To Endi
For j = 1 To Endj
If Worksheets("Kunden").Range("A" & i) = Worksheets("Tabelle3").Range("B" & j) Then
Worksheets("Tabelle3").Range(Cells(2 + j, 3), (Cells(2 + j, 8))).Copy _
Destination:=Worksheets("Kunden").Range(Cells(3 + i, 2), (Cells(2 + i, 6)))
End If
Next j
Next i
End Function
Liebe Grüße,
Anna