Ich erzeuge gerade eine Userform mit 2 Textboxen.
Hier nun meine 2 Probleme:
1. Problem:
In die erste Box gebe ich einen Wert ein. In der zweiten Box erscheint der gleiche Wert, er kann abgeändert werden, aber darf nur höher oder gleich sein !
In einer dritten Textbox schreibe ich, wenn der Wert in Box 2 kleiner als in Box 1 ist, das er eben nicht kleiner sein darf!
Das funktioniert auch bis zu einem bestimmten Wert!
Beispiele
Textbox1 = 3
Textbox2 = 2 -> es kommt die Fehlerausgabe in Textbox 3 -> ist ok!
Textbox1 = 3
Textbox2 = 3 -> die Fehlerausgabe in Textbox 3 ist entfernt -> ist ok!
Textbox1 = 3
Textbox2 = 4 -> die Fehlerausgabe in Textbox 3 ist entfernt -> ist ok!
Textbox1 = 8
Textbox2 = 13 -> es kommt die Fehlerausgabe in Textbox 3 -> ist NICHT ok!
Da ja Textbox2 größer sein darf. Hier wird anscheinend nur auf die erste Zahl und nicht auf den gesamten Wert geschaut. Wie ist das zu ändern. Mein Code lautet:
Private Sub Textbox2.change()
If TextBox2.Text < TextBox1.Text Then
TextBox3.Text = "Fehlermeldung!"
End If
If TextBox2.Text >= TextBox1.Text Then
TextBox3.Text = ""
End If
End Sub
2. Problem:
Ich möchte in den Textboxen eine Formatierung.
Bei Eingabe von 1 soll 1.00 erscheinen.
Bei Eingabe von 1.5 soll 1.50 erscheinen.
Ein nachgeschaltetes -Zeichen wäre das i-Tüpfelchen, aber nicht zwingend.
Hierzu habe ich gar keinen Lösungsansatz.
Wer kann mir zum ersten und/ oder zweiten Problem helfen
Dankeschön
Mfg Mario Bacher