Gruppe
Dialog
Problem
Bei Textfeldeingaben nach einem vorgegebenen Muster soll eine Formatierung erfolgen.
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