in meiner Userform sind mehrere Textboxen.
Hier kann der Anwender Prozentwerte eintippen.
Der Code sollte Fehleingaben abfangen.
Ich finde den Code, den ich derzeit nutze nicht optimal.
Wie könnte ich den Code optimieren.
Hier mein bisheriger Code:
Private Sub textbox175_AfterUpdate()
On Error Resume Next
If Not IsNumeric(CDbl(TextBox175)) Then
If TextBox175 = "" Then Exit Sub
Cancel = True
Exit Sub
End If
On Error GoTo 0
'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
Select Case CDbl(Me.TextBox175.Value)
Case Is 100
MsgBox "Unzulässiger Prozentwert"
Me.TextBox175.Text = Format(CDbl(1), "##,##0.00") & " %"
End Select
Range("b33") = (Left(Me.TextBox175.Value, Len(Me.TextBox175.Value) - 2) * 1) / 100
End Sub
Vielen Dank für die Hilfe im Vorausviele grüsse
gerhard