Option Explicit
Option Compare Text
Const Sheet1 = "Tabelle1"
Const Sheet2 = "Tabelle2"
Sub START1()
Dim Wks1 As Worksheet, Wks2 As Worksheet, c As Range, d As Range
Set Wks1 = Sheets(Sheet1): Set Wks2 = Sheets(Sheet2)
For Each c In Wks2.Range("B2:B" & Wks2.Cells(Wks2.Rows.Count, "B").End(xlUp).Row)
If Not IsEmpty(c) Then
Set d = Wks1.Columns("B").Find(c, LookIn:=xlValues, LookAt:=xlPart)
If d Is Nothing Then
c.Offset(0, 1) = "Nein"
Else
d.Value = Replace(d, c, c.Offset(0, -1)): c.Offset(0, 1) = "Ja"
End If
End If
Next
End Sub