Office: Excel 2007 - VBA: IsDate erkennt auf True, aber CDate meckert

Hallo Forum,

in einer Anwendung überprüfe ich Dateinamen auf eine festgelegte Schreibweise, in der auch ein Datum enthalten sein muss.
Ist diese Schreibweise nicht eingehalten, fordere ich den Anwender mittels einer Input-Box zur Eingabe eines Datums auf, anhand dessen dann der Dateiname in der festgelegten Schreibweise generiert wird.
Die Eingabe wird dafür erst an eine String-Variable übergeben.
Das klappt soweit auch alles...

Aber... durch einen Tippfehler bin ich auf folgendes aufmerksam geworden:
Gebe ich als Datum "04-01-0212" anstatt "04-01-2012" ein, erkennt die Eingabeüberprüfung mittels "IsDate" dass ein Datum eingegeben wurde.
Will ich diese Eingabe aber mit "CDate" in eine Zelle schreiben, so erhalte ich den Laufzeitfehler 1004: "Anwendungs- oder Objektdefinierter Fehler".


Kurz gesagt:
"IsDate(String)" ist ein Datum
"CDate(String)" wird nicht als Datum erkannt

(normal klappt das, aber in dem Fall halt nicht)


Hat jemand eine Idee warum die beiden Funktionen so unterschiedlicher Meinung sind?
Bzw. hat jemand eine Idee wie ich solche Tippfehler abfangen kann?

Zur Verdeutlichung habe ich eine Mappe gebastelt:
Den Anhang IsDate - CDate.xlsm betrachten


Gruß Achim

 

Hallo Achim,

probiere mal folgendes, gerne auch mit dem Zahlendreher im Datum:

Code:

 ' Dateiname generieren
    strZielName = Format(strDateiDatum, "yyyy-mm-dd") & ".xlsx"
    MsgBox Year(strDateiDatum)
    '... und siehe da, es ist ein "echtes" Jahr ...
    If Year(strDateiDatum) <2000 Then
        Me.Cells(1, 1) = CDate(strDateiDatum)
    Else
        Msgbox "Fehler in der Datumseingabe!"
    End If

Das Ganze ist ähnlich wie mit negativen Zeitangaben in Excel. Es gibt sie zwar (im Prinzip) aber Excel kann damit nichzt so umgehen, wie wir es wollen. Und Wenn einDatum kleiner ist als der 1.1.1900 kann Excel damit zwar rechnen aber du siehst selber, dass es da hakt ...

Vielleicht hilft für das Abfangen ja auch die Funktion DateSerial(Year(strDateiDatum), Month(strDateiDatum), Day(strDateiDatum)) um einzelne Werte zu korrigieren.

 

Hallo cpt. Nemo,

danke für Deinen Tipp.
Eigentlich klar > es ist mal wider so einfach, dass man in betriebsblindem Zustand nicht drauf kommt...

Die Funktion "IsDate" überprüft ob ein Datum vorhanden ist > jo ist es: auch das Jahr 212 wird als Datum erkannt
Die Funktion "CDate" wandelt den String in ein Datum, und ich vermute dazu wird der Datumswert benutzt.
Der Datumswert wäre im Jahr 212 aber satt im negativen Bereich... *vor Kopf batsch*

Ich habe jetzt folgendes ergänzt:

Code:

ElseIf Year(strDateiDatum) < 2012 Then
    GoTo Dateidatum