UserForm/Label/KeyUp
18.12.2003 09:19:54
Niels
Ich habe mir eine UserForm erstellt mit zwei Textboxen. Ich möchte nun, dass nur eine gewisse Anzahl von Zeichen in die Textboxen eingegeben werden können. Über den Textboxen Steht die Zahl an zeichen die noch zur Verfügung stehen in einem Label.
Die Schrift 'Sie haben noch XX Zeichen' erscheint aber erst nach Eingabe des ersten 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