Textbox direkt bei Eingabe mit %
15.06.2020 21:55:16
Christian
ich versuche mit schon den ganzen Tag an diesem Problem und habe auch nach langer Recherche nichts ergooglen können, dass mir ohne weiteren Fehler weiterhelfen kann.
Ich habe in einer Userform eine Textbox, die den Anwender zur Eingabe einer Prozentzahl auffordert. Ich habe mit meinem laienhaften Wissen es schon hinbekommen, dass bei nicht numerischen Zeichen die Eingabe direkt rot wird und nach oben und unten Grenzen eingezogen.
Um zu vermeiden, dass der Anwender nun auch das Prozentzeichen als Zeichen eingibt, versuche ich nun, die Eingabe direkt mit "%" zu verknüpfen und falle nur von einem zu dem nächsten Fehlerhinweis. Weiß jemand Rat?
Hier die Reaktion der Textbox auf Eingaben:
Private Sub TextboxUsageVolume1_Change()
UserForm1.TextBoxUsageVolume1 = Format(UserForm1.TextBoxUsageVolume1, "###0")
If IsNumeric(UserForm1.TextBoxUsageVolume1.Value) = False Then
UserForm1.TextBoxUsageVolume1.MaxLength = 0
UserForm1.TextBoxUsageVolume1.ForeColor = vbRed
Else
UserForm1.TextBoxUsageVolume1.ForeColor = vbBlack
UserForm1.TextBoxUsageVolume1.MaxLength = 3
If UserForm1.TextBoxUsageVolume1.Value > 100 Then
UserForm1.TextBoxUsageVolume1.Value =
Left(UserForm1.TextBoxUsageVolume1.Value, 2)
Else
If UserForm1.TextBoxUsageVolume1.Value Christian