Ziffernfolge in UF-Textbox
18.02.2005 09:06:23
Eleni
Habe eine UF programmiert und da habe ich ein Textfeld, welches ich auf 3 Ziffern beschränken möchte. Hinzu kommt, dass wenn hier eine Eingabe unter 3 Ziffern erfolgt, das UF automatisch auf 3 Ziffern erweitern soll. Also Eingabe:3 dann soll da stehen 003, Eingabe: 30 dann soll da stehen 030, und bei Eingabe:300 ergibt es 300. Jetzt habe ich vor einiger Zeit aus diesem Forum folgenden Code bekommen und mit einstelligen Zahlen klappt das auch, nur 2- oder 3-stellige Zahlen sind nun nicht mehr eingebbar. Kann mir jmd konkret weiterhelfen, Bitte?
UserForm1.TextBox2.MaxLength = 3
Sub Textbox2_Change()
If Len(TextBox2) < 3 Then
If Len(TextBox2) = 2 Then
TextBox2 = "0" + TextBox2
Else
TextBox2 = "00" + TextBox2
End If
End If
End Sub
Danke, Eleni
Anzeige