Office: String-Datum in Date umwandeln

Moin zusammen,

ich scheitere gerade an folgender Problemstellung:

Die Datumseinstellung an meinem PC lautet yyyy-mm-dd
Ich habe eine Tabelle in der Datumswerte als String eingetragen wurden mit dem Format dd.mm.yyyy
Wenn ich folgenden Beispielcode durchlaufen lasse:

Sub dateFunc()
Dim strDate As String
Dim dateDate As Date
strDate = "11.11.2015"
dateDate = CDate(strDate )

End Sub

dann bekomme ich die Fehlermeldung "Laufzeitfehler '13': Typen unverträglich".

Da das Skript nicht nur auf meinem PC laufen soll, ist eine Änderung der Datumseinstellung in der Systemsteuerung nicht umsetzbar.

Gibt es einen Möglichkeit das Datum passend zu erkennen?

:)

 

schreibe
Dim strDate As Date, dann ist keine Umwandlung notwendig.

 

Code:

am anfang ist "tmp" ein Array ohne deklaration. dann kommt die fliegende Konvertierung in einen string. vba fetzt. sauberer programmierstil fetzt auch.

 

strDate = Replace("11.11.2015", ".", "-")

 

Sehr cool. Danke!
Ich habe den Code ein wenig angepasst:

Sub dateFunc()
Dim strDate As String
Dim dateDate As Date
Dim tmp() As String
strDate = "11.11.2015"

tmp = Split(strDate, ".")
strDate = tmp(2) & "-" & tmp(1) & "-" & tmp(0)

dateDate = CDate(strDate)

End Sub

Läuft wie gewünscht.