MessageBox in TextBox
17.02.2016 11:05:20
Michael
ich habe folgendes Problem. In einer TextBox soll ein bestimmtes Format vorrangig
vorgeschrieben sein z.B. R 1234 (Buchstabe_Leerzeichen_vierstellige Zahl). Sollte das Format abweichen, soll ein Hinweis erscheinen, ob die Eingaben wirklich richtig sind. Nachdem bestätigen, soll der Cursor in der TextBox bleiben, um die Eingaben ggf. zu ändern.
Jetzt habe ich folgendes Makro:
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Fehler
If Mid(TextBox2, 2, 1) = " " Then _
Exit Sub
Fehler:
MsgBox "Ist das Format richtig ? Format für die laufende Nr. lautet z.B. >R 3761Kann mir jemand sagen, was ich falsch mache?
Gruß MM
Anzeige