Textfeld: IsNumeric und Len
14.07.2005 16:05:53
Stephan
Habe ein kleines Problem bei meinem Programm. Möchte dem Benutzer die Möglichkeit geben Daten (Es müssen Zahlen sein!!!) über ein Userform in ein Textfeld einzugeben. Die Eingabe wird beendet durch einen Button und die eingegebenen Daten werden in irgendwelchen Rechnungen benutzt.
Wie bekomme ich es hin, dass überprüft wird ob wirlich Zahen bzw. ob überhaupt irgendetwas eingetippt wurde.
Habe es so probiert, aber so wird nur überprüft ob es sich bei der Eingabe um Zahlen handelt.
--------------------------------------------------------------------
Private Sub txt_UmgTemp_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txt_UmgTemp.Text) = 0 Then Exit Sub
If Not IsNumeric(txt_UmgTemp) Then
MsgBox ("Sie müssen einen numerischen Wert eingeben!")
Cancel = True
End If
End Sub
--------------------------------------------------------------------
Stelle es mir eigentlich so vor, dass die Überprüfung ob alle Felder gefüllt sind ausgeführt wird mit dem betätigen des Buttons.
Vielleicht kann mir ja jemand helfen!
Danke für jede Mühe!