im nachfolgende VBA-Code wird je nach dem subtrahiert:
wenn in txtBox1 der Wert größer ist als in txtBox2
dann txtBox1 minus txtBox2
dabei wird die TextBox "txtErgebniss" türkis eingefärbt.
Wenn in txtBox2 der Wert größer ist als in txtBox1
dann entsprechet txtBox2 minus txtBox1
und die TextBox "txtErgebniss" gelb eingefärbt.
Private Sub txtBox1_Change()
On Error Resume Next
If txtBox1.Value >= txtBox2.Value Then
txtErgebniss.Value = (CInt(Val(txtBox1) - (Val(txtBox2))))
txtErgebniss.BackColor = RGB(8, 255, 255) 'türkis
End If
If txtBox1.Value
Problem: wenn der Wert in txtBox1 größer als 100 wird färbt sich
die txtErgebniss wieder in geld. Als ob der Wert in die die txtBox1 wieder
kleiner wäre wie in der txtBox2.
Wenn der Wert größer 100 und txtBox1 größer txtBox2 ist, dann soll die
txtErgebniss türkisengefärbt bleiben.
Kann mir jemand dabei helfen?
Vielen Dank im Voraus.
Grüße