Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

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:

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