Habe eine UF. In TextBox10 gebe ich ein Datum ein.
Wie kann ich verhindern das hier jemand ein falsches Datum (zB. 31.02.2011) eingibt?
Hätte jemand einen Tip für mich ?
Gruß
Heinz
If Me.TextBox10.Value "" Then
If Not IsDate(Me.TextBox10.Value) Then
MsgBox "Sie haben keine Daten zum erfassen eingegeben" & _
48, " Hinweis für " & Application.UserName
With Me.TextBox10
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
Else
MsgBox "Sie müssen ein Datum für das Produktionsende eingeben.", _
48, " Hinweis für " & Application.UserName
Me.TextBox10.SetFocus
Exit Sub
End If
Range("R2") = CDate(TextBox10) 'Produktionsende