Prozenten von Textbox in Zelle
31.01.2009 19:23:58
Textbox
Habe ein kleines Problemchen mit den Code.
Die Zelle ist in % formatiert. Wenn ich jetzt die Zahl 5 eingebe, kommt sie mit 500 daher in der Zelle.
Ist es auch möglich, daß bei Falscheingabe der Cursor in der Textbox bleibt?
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim a As Long
If Not IsNumeric(TextBox1) Then TextBox1.Value = ""
If TextBox1.Value = (11 / 100) Then
MsgBox "Der gewählte Prozentsatz ist zu hoch", 64, "Fehler"
Exit Sub
End If
On Error Resume Next
End Sub
Danke an Alle Helfer
Gruß
Leon
Anzeige