VBA Excel wenn Zelle nicht gleich Formel dann

Question

ich überprüfen möchten, ob eine Zelle diese Formel ist dann ein Teil 2 Skript ausführen

Der Code

Range("B1:C1").Select 
If ActiveSheet.Name = "Sheet1" And ActiveCell <> "=formula1" Then Sheet1Macro 

der vollständige Code (long)

Vereinfachte

Range("B1:C1").Select 
If ActiveSheet.Name = "Sheet1" And ActiveCell <> "=IF(OR(IFERROR(SEARCH(""DKB"",RC[-2]),0),IFERROR(SEARCH(""Cox"",RC[-2]),0),IFERROR(SEARCH(""2020"",RC[-2]),0)),RC[-1],"""")" Then Sheet1Macro 

ich nur gefragt werde, wie zu überprüfen, ob die Zelle eine Formel ist, weil ich Zeilen einfügen und das ändert sich die Formel von A2: F99 bis A99: F189 zum Beispiel

Answer 1

If ActiveSheet.Name = "Sheet1" And Range("B1").FormulaR1C1 = "=IF(OR(IFERROR(SEARCH(""DKB"",RC[-2]),0),IFERROR(SEARCH(""Cox"",RC[-2]),0),IFERROR(SEARCH(""2020"",RC[-2]),0)),RC[-1],"""")" Then Sheet1Macro