Excel CDate Fehlermeldung

Question

Hallo liebe Community,

in meinem VBA Excel-Makro erhalte ich die Meldung "type mismatch" beim Konvertieren des Strings in einen Variant, wenn ich bei meinem Kollegen folgenden Code ausführe (unter einem OS X (Yosemite) Excel mit US Region / Datumseinstellungen):

Function ReformatDate() as Variant

   Dim strOriginalDate as String

   Dim vReformatDate as Variant

   strOriginalDate = "1/11/2017"

   ReformatDate = CDate(strOriginalDate)

End Function

Auf einem deutschen OS X System mit deutschem Excel funktioniert der Code. Ich dachte, die Conversion ist regionsunabhängig?!

Answer 1

Ich dachte, die Conversion ist regionsunabhängig?!

Nein, CDate ist im Gegenteil an die Region gebunden:

CDate erkennt alle Datumsformate, die im Gebietsschema des Systems ausgewählt werden können. Die richtige Reihenfolge von Tag, Monat und Jahr kann nicht immer bestimmt werden, wenn sich das Datumsformat von den im Gebietsschema verfügbaren Formaten unterscheidet.

Du solltest vor dem Aufruf von CDate mit IsDate prüfen ob sich der String in ein Datum umwandeln läßt.

Allerdings sieht der String nicht ungewöhnlich aus und geht bei mir auf englischen Maschinen (auch Mac).

Könnte also sein das der Kollege da etwas unerwartetes in seinem System eingestellt hat... wie / wo kann ich nicht sagen, ich bin kein Experte für Mac.

Andreas.

Answer 2

Vielen Dank, Andreas.

Ich werde das mit der Prüfung (IsDate) mit meinem Kollegen ausprobieren.

Leider kenne ich mich mit dem Mac nicht sonderlich gut aus, bei den Datumsformaten gibt es aber immer wieder Schwierigkeiten / Besonderheiten unabhängig vom Betriebssystem.

Answer 3

Hallo liebe Community,

in meinem VBA Excel-Makro erhalte ich die Meldung "type mismatch" beim Konvertieren des Strings in einen Variant, wenn ich bei meinem Kollegen folgenden Code ausführe (unter einem OS X (Yosemite) Excel mit US Region / Datumseinstellungen):

Function ReformatDate() as Variant

   Dim strOriginalDate as String

   Dim vReformatDate as Variant

   strOriginalDate = "1/11/2017"

   ReformatDate = CDate(strOriginalDate)

End Function

Auf einem deutschen OS X System mit deutschem Excel funktioniert der Code. Ich dachte, die Conversion ist regionsunabhängig?!