_KeyPress Zahleneingabe überwachen
hotzi
mit folg. code kann ich die zahleneingabe sicherstellen. nun soll auch noch der werte von control1 immer kleiner als der von control2 sein. das funktioniert nicht wenn ich z.b. 10 oder 2 eingebe. er meint dann wohl 1 ist kleiner 2. kann man das ändern?
Private Sub txtE4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
If CLng(txtE4.Text & Chr(KeyAscii)) > CLng(txtE3.Text) Then KeyAscii = 0
Case Else:
Call MsgZahlUeberNullEingeben
KeyAscii = 0
End Select
End Sub
freue mich auf eine antwort klaus
Anzeige