Datum notatie

[Woffels]

Hallo,
Ik heb bijgevoegd txt bestand en wil deze importeren in excel, mooi in kolommen. Dat lukt me prima, alleen krijg ik niet de juiste datum tijd notatie voor elkaar.
In het tekstbestand is dit de notatie: 2019-08-29T17:24:28,700000+02:00
Nu wil ik bij "tekst naar kolommen" dat de datum tijd notatie er zo uitziet dd-mm-jjjj hh:mm:ss met de input uit het tekst bestand. Ik weet dat het kan, maar het lukt me niet. Wie weet raad?

 

[jkpieterse]

Welke versie van Excel heb je precies?

 

[Woffels]

2010

 

[alphamax]

2019-08-29T17:24:28,700000+02:00 is volgens de ISO8601-notatie

 

[Woffels]

Is dat te converteren?

 

[alphamax]

Een beetje met de botte bijl.
Laat deze macro lopen na het importeren.
De code kijkt in een aansluitend gebied.
Elke cel met een inhoud die lijkt op de ISO8601-notatie wordt omgezet.
De code doet niets met de +02:00 (tijdzone)

Public Sub ISO8601Timestamp()
    Dim strValue As String
    Dim astrValue As Variant
    For Each objCell In ActiveSheet.Range("A1").CurrentRegion
        strValue = objCell.Value
        If strValue Like "####-##-##T##:##:##*+##:##" Then
            astrValue = Split(strValue, "T")
            objCell.Value = Format(astrValue(0), "dd-mm-yyyy") & " " & Format(Left(astrValue(1), 8), "hh:mm:ss")
        End If
    Next
End Sub

 

[AlexCEL]

Hier nog een botte bijlmethode met formules.

 

[VenA]

Dan haal je het bestand niet op de juiste manier binnen in Excel.

Sub VenA()
  Columns(3).Replace "T", " ", xlPart
End Sub