ich habe eine TextBox, in der ein Datum eingetragen wird. Nun wäre es hilfreich, dass er nach Eingabe des Datums prüft, ob das aktuelle Jahr richtig mit eingegeben wurde.
z.B. 11.11.2015 = Fehler, soll das eingebene Jahr übernommen werden (MSG-Box)?
Auswahl mit ja oder nein. Bei ja soll es übernommen werden, bei nein die TextBox gelöscht werden. Ist das Jahr richtig eingeben, soll kein Hinweis erscheinen.
Mein Code sieht bisher so aus:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Fehler
If Mid(TextBox1, 3, 1) = "." And _
Mid(TextBox1, 6, 1) = "." Then
Exit Sub
End If
Fehler:
MsgBox "Bitte Datum wie folgt eingeben.z.B. 01.01.2015"
TextBox1 = ""
TextBox1.SetFocus
TextBox1.SelStart = 1
TextBox1.SelLength = Len(TextBox1.Text)
If IsDate(TextBox1.Text) Then
ActiveCell.Offset(0, 1) = CLng(CDate(TextBox1.Text))
End If
End Sub
Gruß Michael