Hallo Donny :-)
Ein Beispiel!
Gruß Nighty
[code]Sub Vergleich()
Dim Suche As Object, SpA As Object
Dim SpB As Variant
Dim Index As Long
Set SpA = ActiveSheet.Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
SpB = ActiveSheet.Range("B2:B" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
For Index = 1 To UBound(SpB)
Set Suche = SpA.Find(SpB(Index, 1))
If Not Suche Is Nothing Then
Cells(Suche.Row, 1).Interior.ColorIndex = 3
Cells(Index + 1, 2).Interior.ColorIndex = 3
End If
Next Index
End Sub[/code]