Guten Morgen,
ich importiere per VBA eine Textdatei. Dabei kann die Spalte "Datum" leider auch unplausible Datumswerte enthalten, z.B. 29.02.07 oder 99.99.99 oder auch 00.01.07. Diese hätte ich dann gern als Text importiert:
' Datum
If IsDate(Mid$(strInZeile, 44, 8)) Then
wsBlatt.Cells(lngReihe, 7) = CDate(Mid$(strInZeile, 44, 8))
Else
wsBlatt.Cells(lngReihe, 7).NumberFormat = "@"
wsBlatt.Cells(lngReihe, 7) = Mid$(strInZeile, 44, 8)
End If
Leider liefert IsDate nicht das gewünschte Ergebnis, aus dem 29.02.07 wird beispielsweise der 07.02.2029; aus 00.01.07 wird 07.01.2000. Lediglich 99.99.99 wird richtig importiert.
Wie kann ich diese unplausiblen Fälle abfangen?
Vielen Dank und viele Grüße
Thomas