Sub Vergleich()
Dim Zelle As Range
Dim Suche As Variant
Dim Treffer As Variant
ActiveWorkbook.Sheets("Tab2").Select
For a = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Suche = Cells(a, 1).Value
Treffer = 0
ActiveWorkbook.Sheets("Tab1").Select
For i = 8 To Cells(Rows.Count, 2).End(xlUp).Row
Set Zelle = Range("A" & i)
If Zelle.Value = Suche Then
Cells.Range("A" & i & ":" & "DR" & i).Interior.Color = 5296274
Cells(i, "DR").Value = "X"
Treffer = Treffer + 1
End If
Next i
ActiveWorkbook.Sheets("Tab2").Select
If Treffer = 0 Then Cells.Range("A" & a).Interior.Color = 7434751
Next a
ActiveWorkbook.Sheets("Tab1").Select
Cells(1, 1).Select
a = 0
i = 0
Suche = ""
Treffer = ""
MsgBox "Fertig!"
End Sub