With Worksheets("Tabelle2")
If Range("Tabelle1!F3").Value <> .Range("F" & WorksheetFunction.Match("Beitrag", .Columns("G:G"), 0)).Value Then MsgBox "X" End If End With