UserForm/Textbox
17.12.2003 17:59:20
Niels
Ich habe mir eine UserForm erstellt mit zwei Textboxen. Ich möchte nun, dass nur eine gewisse Anzahl von Zeichen in ie Textboxen eingegeben werden können. Über den Textboxen Steht die Zahl an zeichen die noch zur Verfügung stehen. Allerdings kann man damit nicht verhindern, dass nciht doch mehr zeichen eingegeben werden. Wie kann man denn realisieren, dass die Textbox keine Zeichen mehr annimmt, wenn die Zahl auf null steht?
Vielleicht gleich noch eine Frage.
Dier Schriftzur 'Sie haben noch XX Zeichen' erscheint erst nach Eingabe des ersen Zeichens. Kann man das auch so realiseiren, dass es direkt beim Öffnen der userform sichbar wird?
Gruß
Niels
Hiermit habe ich den Zeichenzähler realisiert:
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Label1.Caption = "Sie haben noch " & CStr(39 - Len(TextBox1.Value)) & " Zeichen!"
End Sub
Anzeige