Hallo. Ich benötige ein Makro mit dem ich in meinem Workbook1 "CIB" Spalte C mit meinem Workbook2 "Z_IDeaS_CIB - Kopie" Spalte C vergleiche und wenn es eine Übereinstimmung gefunden hat, ab da die Tabelle kopiert. In Spalte C sind in beiden Sheets Anreisedaten angeben. "CIB" wird täglich als Report an uns gesendet mit dem aktuellem Datum +366 Tage. In "Z_IDeaS_CIB - Kopie" sollen die vergangenen Anreisedaten bestehen bleiben und dann die aktuellen Daten ersetzt/überschrieben werden.
Ich wurde schon Online fündig und hab versucht das Makro anzupassen. Leider habe ich nur Basic VBA Kenntnisse und ich finde den Fehler nicht. Ich vermute es hat etwas mit der Range zu tun. Wäre toll, wenn mir jemand helfen kann.

Sub FindAndCopy()

Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim Rng1 As Range
Dim Rng2 As Range
Dim c As Range

Application.ScreenUpdating = False
Set WS1 = Workbooks("Z_IDeaS_CIB - Kopie.xlsm").Sheets("Data_Extraction")
Set WS2 = Workbooks("CIB.xlsx").Sheets("Property")
Set Rng1 = WS1.Range(WS1.Range("C2"), WS1.Range("C" & Rows.Count).End(xlUp))
Set Rng2 = WS2.Range(WS2.Range("C2"), WS2.Range("C" & Rows.Count).End(xlUp))
For Each c In Rng1
On Error Resume Next
Rng2.Find(What:=c).Offset(0, 1).Resize(, 60).Copy Destination:=c.Offset(0, 1)
Err.Clear
Next c
Set WS1 = Nothing
Set WS2 = Nothing
Set Rng1 = Nothing
Set Rng2 = Nothing
Application.ScreenUpdating = True
End Sub

LG
Nadja