textBox1 prüfen ob numerische eingabe
06.11.2006 11:53:05
achim
wer kann mal schauen
das makro soll prüfen aber schon bei der eingabe ob das was ich eingebe auch numerisch ist. leider tut es nicht...
Private Sub TextBox1__Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox1.Text) Then
MsgBox "Bitte numerischen Wert eingeben!"
Cancel = True
End If
End Sub
gruss
achim h.
Anzeige