Option Explicit

Sub Vergleichen()
Dim Search1 As Range
Dim Search2 As Range
Dim lastRowA As Long
Dim lastRowB As Long
lastRowA = Range("A65536").End(xlUp).Row
lastRowB = Range("B65536").End(xlUp).Row
For Each Search1 In Range("A2:A" & lastRowA)
For Each Search2 In Range("B2:B" & lastRowB)
If Search1.Text = Search2.Text Then
Search1.Interior.ColorIndex = 3
Search2.Interior.ColorIndex = 4
Cells(Search1.Row, 3) = 1
Cells(Search2.Row, 3) = 1
End If
Next
Next
End Sub

=============================

Hi Leute,

habe noch nie ein Makro bedient.

Was mache ich jetzt mit dem Quellcode oben?

Wie kriege ich den in Excel zum Laufen?

Danke!!!
Moguai