Splitsen maar Datum gaat verkeerd

[HWV]

Beste,

Ik heb regels die ik moet splitsen, op zich gaat dit wel goed enkel er staat een datum in :

Totaal 10404.DR-00249.11-10-2018.59582
Totaal 10404.DR-00249.12-10-2018.59582
Totaal 10404.DR-00249.13-10-2018.59582

script wat ik gebruik om te spitsen:

Sub splitsen()
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
End Sub

Met als resultaat:

Totaal 10404 DR-00249 10-11-2018 59582
Totaal 10404 DR-00249 10-12-2018 59582
Totaal 10404 DR-00249 13-10-2018 59582

Soms gaat het goed en maar het gaat ook wel eens niet goed.
De rode tekst gaat fout enkel de andere die geef wel de juiste format weer DD-MM-JJJJ en de rode datum niet, die geef MM-DD-JJJJ.

Hoe kan ik splitsen terwijl de datum wel een juiste weergave krijg.

Totaal 10404 DR-00249 11-10-2018 59582
Totaal 10404 DR-00249 12-10-2018 59582
Totaal 10404 DR-00249 13-10-2018 59582

Ik doe dit met VBA I.v.m. dit een gedeelte is van een conversie die ik heb gemaakt in VBA.

Alvast dank voor uw bijdrage

Henk

Bekijk bijlage helpmij_splitsen.xlsm

 

[VenA]

FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, [COLOR="#FF0000"]4[/COLOR]))

 

[HWV]

Top!

Dit was het idd VenA !

Bedankt!

Henk