VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei TextBox-Eingaben Mustervergleich und Formatierung

Gruppe

Dialog

Bereich

TextBox

Thema

Bei TextBox-Eingaben Mustervergleich und Formatierung

Problem

Bei Textfeldeingaben nach einem vorgegebenen Muster soll eine Formatierung erfolgen.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.




ClassModule: frmFormat

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub txtData_Change()
   If txtData.Text Like "####[a-zA-Z]" Then
      txtData.Text = Left(txtData.Text, 2) & "." & Mid(txtData.Text, 3, 2) & ". " & Right(txtData.Text, 1)
   End If
End Sub
StandardModule: Modul1

Sub CallForm()
   frmFormat.Show
End Sub

    


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