Mit der Funktion textToDate("06.01.23") wird der String in ein Datum umgewandelt:
Function textToDate(csvDate)
Dim csvPart() As String
csvPart = Split(csvDate, ".")
dJahr = csvPart(2)
dMonat = csvPart(1)
dTag = csvPart(0)
textToDate = DateSerial(2000 + dJahr, dMonat, dTag)
End Function
|