Office 2016 Ergebnisse rückmelden

[RuRo]

Ich habe ein Arbeitsblatt mit unterschiedlichen Ergebnissen in verschiedenen Zellen (C2, D4, E6, C9, F12,...). Diese Ergebnisse möchte ich rückmelden, ob diese richtig oder falsch sind. Zwei Varianten habe ich bereits durch.
Variante 1 - die Ergebnisse werden sofort rückgemeldet mittels bedingter Formatierung.
Variante 2 - ich habe 2 CommandButtons eingefügt. Mit CB1 werden neue Aufgaben generiert und alle Einträge gelöscht. In der Spalte H habe ich eine wenn-dann-Bedingung eingefügt. Richtiges Ergebnis ist 1, falsches Ergebnis ist 0. Drücke ich nun CB 2, so erhält man die gesamtpunktezahl von richtigen Ergebnissen. Was fehlt ist aber die Rückmeldung, welche der Aufgaben richtig bzw. falsch gelöst sind.
Variante 3 - hier habe ich Probleme. Ich möchte am Schluss die Ergebnisse mit CB2 wie folgt rückmelden (umfärben der Ergebnisfelder bei richtigen Ergebnissen, bei falschen Ergebnissen bleibt der Balken auf gelb; oder ich schreibe direkt unter die Ergebniszelle richtig oder Falsch). Hätte jemand im Forum eine Idee, wie man dies bewerkstelligen könnte? Uns zwar alle Ergebnisse gleichzeitig rückmelden.
Danke RuRo

[RuRo]

Ich habe mittlerweile selbst herumprobiert und habe erreicht, dass die falschen Ergebnisse rot markiert werden.
Dazu habe ich in die Spalten J2,J4,... bei richtigem Ergebnis das Wort "super" , bei falschem Ergebnis das Wort "falsch" mittels wenn-Funktion schreiben lassen. Die Schrift ist in weißer Farbe und somit unsichtbar. Mit der untenstehenden Formel werden beim Drücken auf den CommandButton2 "Prüfen" die falschen Ergebnisse rot eingefärbt.

Private Sub CommandButton2_Click()
Dim Zelle As Range
For Each Zelle In Range("J2,J4,J6,J9,J12")
If InStr(Zelle.Value, "falsch") > 0 Then
Else: Zelle.Font.ColorIndex = 3
End If
Next Zelle
End Sub

Ich möchte nun die Bedingung so abändern, dass bei richtigen Ergebnissen das Wort "super" grün gefärbt wird. Zudem sollten beim Drücken von CDButton1 die Farben in den entsprechenden Zellen wieder weiß sein.
Wer kann einen guten Tipp abgeben?

[RuRo]

Mein gewünschtes Ergebnis ist fertig!

Private Sub CommandButton1_Click()
ActiveSheet.Range("J2,J4,J6,J9,J12").Interior.ColorIndex = 2
End Sub

Private Sub CommandButton2_Click()
Dim Zelle As Range, Bereich As Range
Set Bereich = Range("j2,j4,j6,j9,j12")
For Each Zelle In Bereich
Select Case Zelle.Value
  Case "super":
     Zelle.Interior.ColorIndex = 4
  Case "falsch":
     Zelle.Interior.ColorIndex = 6
End Select
Next Zelle
End Sub

Das Ergebnis sieht dann so aus: