title image


Smiley Re: Datumsfelder überprüfen
Hallo Rainer,das Feld erhält den Focus, es ist aber nur eine "Zwischenstation", da nach dem Ausführen des Makros das Verlassen fortgesetzt wird. Das gilt auch für Exit.Du könnntest Dir aber so behelfen:Private Sub txt_termin_mechanik_Change()If Len(txt_termin_mechanik.Text) >= 7 Then If Not IsDate(txt_termin_mechanik.Text) Then MsgBox "Kein Datum"End IfEnd SubIch erstelle meistens eine Unterroutine, die nur die Aufgabe hat, alle Elemente der Userform auf ihre Gültigkeit zu überprüfen. Entdeckt sie eine fehlerhafte Eingabe, gibt sie eine Meldung aus und dem entsprechenden Element den Focus. Diese Unterroutine rufe ich dann über ein Ereignis auf, z. B. beim Auswählen der OK- oder Drucken-Schaltfläche.Viele Grüße,Jörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: