Hallo! Also ich vermute mal, dass du nicht viele Antworten bekommen wirst. Das crossposting wird nicht gerne gesehen. :-)  Weiß nicht genau, ob das hilft, aber das wäre eine Möglichkeit auf die schnelle - ist deshalb nicht getestet und evtl. etwas zu lang. Die Zellenzugriffe sind nach dem Seitenaufbau von office-fragen.de aufgebaut (da sah man es am besten). Die Farbewerte müssten ggf. auch noch angepasst werden. Schau mal bitte und prüfe. Wen noch Fragen sind, einfach nochmal melden. Schönen Abend noch

Sub matrix()

Dim werte   ' deine drei werte
Dim summe As Integer 'die Summe der Schatten

werte = Array(1, 4, 6)  'nur als Beispiel - die Eingabe müsste man halt noch klären also A B E

'erster Durchgang

If ActiveSheet.Cells(13 - werte(1), 2 + werte(0)).Interior.ColorIndex = 4 Then summe = summe + 0 'grün
If ActiveSheet.Cells(13 - werte(1), 2 + werte(0)).Interior.ColorIndex = 6 Then summe = summe + 1 'gelb
If ActiveSheet.Cells(13 - werte(1), 2 + werte(0)).Interior.ColorIndex = 3 Then summe = summe + 2 'rot

'zweiter Durchgang
If ActiveSheet.Cells(13 - werte(2), 15 + werte(0)).Interior.ColorIndex = 4 Then summe = summe + 0 'grün
If ActiveSheet.Cells(13 - werte(2), 15 + werte(0)).Interior.ColorIndex = 6 Then summe = summe + 1 'gelb
If ActiveSheet.Cells(13 - werte(2), 15 + werte(0)).Interior.ColorIndex = 3 Then summe = summe + 2 'rot

'dritter Durchgang
If ActiveSheet.Cells(13 - werte(1), 28 + werte(2)).Interior.ColorIndex = 4 Then summe = summe + 0 'grün
If ActiveSheet.Cells(13 - werte(1), 28 + werte(2)).Interior.ColorIndex = 6 Then summe = summe + 1 'gelb
If ActiveSheet.Cells(13 - werte(1), 28 + werte(2)).Interior.ColorIndex = 3 Then summe = summe + 2 'rot

MsgBox summe 'deine Bewertung

End Sub