Ziffernfolge in UF-Textbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
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

Beiträge aus den Excel-Beispielen zum Thema "Neue Seiten in Multipage per VBA"