Herbers Excel-Forum - das Archiv

Ziffernfolge in UF-Textbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
Bild

Betrifft: Ziffernfolge in UF-Textbox
von: Eleni

Geschrieben am: 18.02.2005 09:06:23
Hi Forum,
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
Bild

Betrifft: AW: Ziffernfolge in UF-Textbox
von: Josef Ehrensberger

Geschrieben am: 18.02.2005 09:10:34
Hallo Eleni!
Verlege das Makro in das Exit-Ereignis der Textbox!
If Len(TextBox2) < 3 And TextBox2 <> "" Then
If Len(TextBox2) = 2 Then
TextBox2 = "0" + TextBox2
Else
TextBox2 = "00" + TextBox2
End If
End If


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: Exit-Ereignis???
von: Eleni
Geschrieben am: 18.02.2005 09:29:19
Hi Sepp,
Danke für den Tipp, aber wie meinst du das mit dem Exit?

Ciao, Eleni
Bild

Betrifft: AW: Exit-Ereignis???
von: Josef Ehrensberger
Geschrieben am: 18.02.2005 09:31:34
Hallo Eleni!
Wenn du im Modul des UF bist und da im Change der Textbox, dann kannst
du im DropDown rechts oben die Events der Textbox auswählen.
Da findest du auch EXIT!

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: Vielen Dank, funktioniert. Geschlossen, o. T.
von: Eleni
Geschrieben am: 18.02.2005 09:34:33
o. T.
 Bild