Is there a way to make a formula that recognizes the cell color like if A2 is
green, then my formula in B2 would recognize this color and return the value
1, then 0 for yellow and -1 for red for example. - a form of reverse
conditional formatting.

If not, how to to this in vba?

Rgds