Prüfen Textbox-Eingabe
26.10.2006 18:03:11
gert
Der Wert von Textbox209 wird mit "1.200,00 " zurückgeschrieben
Nach der Eingabe von Textbox210 steht "340,00 "
Das Programm sagt mit Textbox210 sei größer als Textbox209
Ich versteh das nicht. Nachfolgend habe ich den Programmcode.
Private Sub TextBox210_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim datenlager As String
'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
Select Case Len(TextBox210.Value)
Case 0
TextBox210 = 0
End Select
datenlager = Format(TextBox210.Value, "##,##0.00 ")
TextBox210.Value = datenlager
If Val(TextBox210.Value) >= Val(TextBox209.Value) Then
MsgBox ("Der Wert " & TextBox210.Value & " ist als Eingabewert nicht zulässig!" & vbLf & _
"Der Wert wird auf 1 zurückgesetzt")
Range("b207") = 1
TextBox210 = 1
Else
Range("b207") = TextBox210.Value * 1
End If
End Sub
Anzeige