Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingabekontrolle bei UserForm

Gruppe

TextBox

Problem

Wie kann ich die Eingaben in einer UserForm-TextBox auf Ziffern, Groß- oder Kleinbuchstaben begrenzen?

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

ClassModule: frmEingabekontrolle

Private Sub cmdContinue_Click()
   Unload Me
End Sub

Private Sub TextBox1_Change()
   Dim sTxt As String
   sTxt = TextBox1.Text
   If Len(sTxt) = 0 Then Exit Sub
   If CheckBox1.Value = True And Right(sTxt, 1) _
      Like "[0-9]" Then Exit Sub
   If CheckBox2.Value = True And Right(sTxt, 1) _
      Like "[A-Z]" Then Exit Sub
   If CheckBox3.Value = True And Right(sTxt, 1) _
      Like "[a-z]" Then Exit Sub
   TextBox1.Text = Left(sTxt, Len(sTxt) - 1)
End Sub

StandardModule: basMain

Sub CallForm()
   frmEingabekontrolle.Show
End Sub