Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bestimmte Anzahl von Zeichen zulassen

Gruppe

TextBox

Problem

Wie kann ich die in eine TextBox einzutragende Zeichenfolge auf 6 Zeichen begrenzen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frm6Zeichen

Private Sub cmdContinue_Click()
   Unload Me
End Sub

Private Sub txt6Chars_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Len(txt6Chars.Text) < 6 Then
      Beep
      MsgBox "6 Zeichen eingeben!"
      With txt6Chars
         .SetFocus
         .SelStart .TextLength
      Exit Sub
   End If
End Sub