Sub vergleichen()
Dim Tab1 As Object, Tab2 As Object
Dim zeile As Long, erg As Variant
Const Zeile1 = 2
Set Tab1 = ThisWorkbook.Sheets(1)
Set Tab2 = ThisWorkbook.Sheets(2)
With Tab2
For zeile = Zeile1 To .Cells(Rows.Count, 1).End(xlUp).Row
Set erg = Tab1.Columns(1).Find(what:=.Cells(zeile, 1), lookat:=xlWhole)
If Not erg Is Nothing Then .Cells(zeile, 8) = "j"
Next zeile
End With
End Sub