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!
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