VBA-TxtBox
03.05.2002 21:52:19
Ernst Dunkel
Die Prozedur hat einen kleinen Fehler:
Wenn ich in die TexBox1 eine ganze Zahl (z.B. 1) eingebe Funktioniert das Makro meinen Erwartungen. Gebe ich jedoch eine Dezimalzahl ein (z.B. 1.5), dann wird aus 1.5 [37377] (Datumszahl) was falsch ist!
Der Wert wird über geben durch folgende Einstellung in Eigenschaften-TextBox1
bei ControlSource = Tabele1!A1
Das komische ist nun, manchmal funktionierts und dann wieder nicht.
Muss ich in “Eigenschaften-TextBox1“ einen Wert verändern oder im Makro etwas ergänzen? Wer kann mir weiter helfen?
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox1.Text) Then
MsgBox "Sie müssen die Anzahl Ventile pro Stockwerk eingeben!"
Cancel = True
End If
End Sub