Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng1 As Range
Dim rng2 As Range
Dim cell1 As Range
Dim cell2 As Range
Dim matchFound As Boolean
'Definiere die Arbeitsblätter
Set ws1 = ThisWorkbook.Worksheets("Sebo_Prüfung")
Set ws2 = ThisWorkbook.Worksheets("ESNs in screenshots")
'Definiere die zu vergleichenden Bereiche(Spalten)
Set rng1 = ws1.Range("M1:M" & ws1.Cells(ws1.Rows.Count, 13).End(x1Up).Row)
Set rng2 = ws2.Range("A1:A" & ws2.Cells(ws2.Rows.Count, 1).End(x1Up).Row)
'Schleife durch die Zellen in den Bereichen
For Each cell1 In rng1
matchFound = False
For Each cell2 In rng2
'Wenn die Zellen übereinstimmen,markiere sie grün und setze den Flag auf den Treffer
If cell1.Value = cell2.Value Then cell2.Interior.Color = RGB(0, 255, 0)
matchFound = True
Next cell2
'Wenn keine Übereinstimmung gefunden wurde, markiere die Zelle rot
If Not matchFound Then cell1.Interior.Color = RGB(255, 0, 0)
Next cell1
End Sub
Könnte mir hier jemand helfen. Ab der Zeile "Set rng2" wird die Fehlermeldung 1004 ausgegeben.
Code wird verwendet, um 2 Spalten auf unterschiedlichen Blättern zu vergelichen und die gleichen Werte in der Spalte auf Blatt 2 grün zu markieren.
LG Paul