kann man diesen code als formel darstellen ?

ich hab in einem makro diese zeile:

If [a1].Font.ColorIndex = 3 Then [b1] = 1

ist es möglich, auch per formel zu prüfen, ob der font in a1 rot ist ? so, dass man eine formel in b1 einfügt =WENN(FONT(A1)=3;1;0)

gibt es dafür spezielle formeln ?

danke !

gruss gerd