Guten morgen allseits!
Danke für die Rückmeldungen und Tipps.
Mein Code sieht nunmehr wie folgt aus, jedoch funktioniert die Prüfung des Datums nicht. Selbst wenn z. B. 20131350 eingegeben wird, wird dies nicht als falsches Datum erkannt.
nochmal01:
Do
var01 = Application.InputBox(prompt:="Bitte altes Durchführungsdatum eingeben.", Title:="Eingabe ALTES Durchführungsdatum", Default:="JJJJMMTT", Type:=1)
'Prüfung, ob die Eingabe eine Zahl ist
If VarType(var01) = vbBoolean Then GoTo Abbruch
'Prüfung der Länge der Eingabe
If Len(var01) <> 8 Then
MsgBox "Die Zahl muss aus acht Zeichen (JJJJMMTT) bestehen!" & vbLf & _
"", vbExclamation, "--> "
GoTo nochmal01
Else
'Prüfung, ob die Eingabe ein gültiges Datum ist
len01 = Left(var01, 4) 'Jahr
len02 = Mid(var01, 5, 2) 'Monat
len03 = Right(var01, 2) 'Tag
dathelp01 = len03 & "." & len02 & "." & len01
If Not IsDate(dathelp01) Then
MsgBox "Kein gültiges Datum!"
Exit Sub
End If
Exit Do
End If
Loop
Habe ich dabei etwas übersehen?
Ciao
Tom