UF: Numerische Dateneingabe überlistet
22.06.2006 11:26:34
Marcel
Habe in UF Eingabefelder, in denen numerische Werte erfasst werden müssen. Dass dies erfolgt, habe ich folgenden Code verwendet:
If IsNumeric(TextBox370.Value) Then
Range("H223").Value = TextBox370.Value
Else
MsgBox "Please enter number of pieces!", _
vbExclamation, "Rules"
TextBox370.Value = "0"
End If
Nun habe ich so einen Schlaumeier, der hat statt 4 den Wert 4' (also mit Apostroph als Tausender) erfasst. Das wird offensichtlich durch obigen Code zugelassen, führt aber in den Tabellen zu Fehlermeldung, da das kein numerischer Wert ist.
Kann mir Da bitte jemand weiterhelfen?
Vielen Dank
Marcel