Datum uit txt-bestand omzetten

[stefano]

Ik krijg een .txt-bestand met datums in, zie bestand GS_10.XLS in bijlage. Het bestand krijgt vanuit het systeem .xls mee maar is in feite een .txt.

De datums worden oorspronkelijk geschreven met punt bv, 30.04.2020 en 04.05.2020

Ik verander . naar / via onderstaande code

Sub Rechthoek1_Klikken()
    Columns("A:A").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "dd/mm/yyyy"

End Sub

Toch loopt het fout voor alle datums die beginnen met een cijfer kleiner dan 13 (12 maanden). Voor die datums worden dag en maand omgewisseld. Hoe kan ik dit vermijden?

28/04/2020
29/04/2020
30/04/2020
05/04/2020
05/05/2020
05/06/2020
05/07/2020
05/08/2020
05/11/2020
05/12/2020
13/05/2020
14/05/2020
15/05/2020
18/05/2020

 

[popipipo]

=DATE(RIGHT(A2;4);MID(A2;4;2);LEFT(A2;2))

Met deze formule wordt de datum wel correct weergegeven

 

[VenA]

Gebruik tekst naar kolommen.

 

[OctaFish]

Kolom selecteren, Zoeken-Vervangen kiezen, punt vervangen door - of / (maakt namelijk niet uit) en je bent klaar. Kolom is dan netjes omgezet naar datum.

 

[stefano]

Dank voor jullie antwoorden.

Met de formule van popi is het gelukt. Bij de andere voorstellen blijft het fout gaan (in vba) .

13/05/2020 blijft 13 mei 2020 ==> ok

12/05/2020 wordt 05 december 2020 ==> niet ok

dank

 

[HSV]

Sub hsv()
 Columns(1).TextToColumns Cells(1), 1, , , , , , , , , Array(1, 4)
End Sub