Danke, der Code läuft durch, aber egal welche Werte (also auch bei unterschiedlichen) erscheint die Textbox.
Weisst du woran dies liegt?
Sub abweichung_sverweis()
If Worksheets("tabelle1").Range("f3").FormulaR1C1 <> "=VLOOKUP(""Beiträge"",Tabelle2!C[-2]:C[-1],2,FALSE))" Then
MsgBox "Abweichung." & vbCrLf & "Anpassung notwendig."
End If End Sub
Danke und liebe Grüße
|