Habe untere Formel in VBA mittels Recorder erstellt
Nur tut sich gar nichts . Ich möchte wenn in "Tabelle"in J21 folgende Formel haben.
=WENN(F21>"";90;"")
Sub Formel()
Worksheets("Tabelle").Range("J21").ActiveCell.FormulaR1C1 = "=IF(RC[-4]>"""",90,"""")"
End Sub