Mit versch. Tricks kann man u.U. ggf. was machen. Die prinzipielle Antwort ist aber Nein
Beispiel
https://www.herber.de/forum/archiv/112to116/t115286.htm
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 11 And Target.Column = 1 Then
Select Case Target.Value
Case "A"
Target.Interior.ColorIndex = 3
Case "B"
Target.Interior.ColorIndex = 5
Case "C"
Target.Interior.ColorIndex = 4
Case "10"
Target.Interior.ColorIndex = 6
Case "20"
Target.Interior.ColorIndex = 8
End Select
End If
End Sub
Hoffe das Hilft weiter!
das Makro wurde in der zwischenzeit weiterentwickelt. Der von Silvio vorgeschlagene Code hat Probleme, wenn mehere Zellen mit einmal gefüllt wird
Auch der neue Code wirkt nur bei ingabe im vorgegebenen Bereich. Er wirkt also nicht bei Formel.
Gruß Hajo