Habe unten stehenden Code in einer Arbeitsmappe eingegeben
dieser funktioniert auch bei einer Spalte
Beispiel 5+3=8 wenn in Spalte f falsche Eingaben gemacht werden dann wird in Spalte H (8) geprüft ob falsch oder richtig (wenn Abfrage) wenn falsch wird solange in Spalte K (11) hochgezählt bis die richtige Zahl eingetragen ist
Private Sub Worksheet_Change(ByVal Target As Range)
'Wenn keine Eingabe in Spalte f erfolgt, dann Makro verlassen
If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
'Wenn in Spalte h falsch steht, dann in Spalte k den Zähler um 1 erhöhen
If Cells(Target.Row, 8) = "falsch" Then Cells(Target.Row, 11) = Cells(Target.Row, 11).Value + 1
End Sub
Jetzt möchte ich eine weitere Spalte abfragen
Beispiel 300 / 40 = 7 Rest 20
In Spalte G ( 20 ) wird eingegeben geprüft wird in Spalte H (8) und in Spalte L (12) die Fehlversuche ausgeben
In Spalte K bleiben die Fehlversuche für die 7 (aus dem Beispiel)
hat jemand eine Lösung habe schon lange Probiert
freue mich auf eure Antworten
brauche sie für meine Enkelkinder um Rechnen zu lernen
Liebe Grüße Antonius