VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eingabekontrolle bei UserForm

Gruppe

Dialog

Bereich

TextBox

Thema

Eingabekontrolle bei UserForm

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox