Tekstveld omzetten naar datum

[Girt04]

Hallo,

Ik probeer een MS Project export in Excel bruikbaar te maken om in een ander systeem te importeren. Het probleem is de MS Projects de velden alleen kan vullen met tekst en dat deze tekst in Excel, voor zover ik weet, aan te passen. Dingen die ik geprobeerd heb zijn: format aanpassen en opsplitsen tekst met links en rechts formule.

Echter ik krijg het niet werkend doordat de lengte van de inhoud afwijkt.

De datum wordt weergegeven als: April 9, 2018 8:00 AM
Ik heb nodig 09-04-2018 en dat deze de huidige cel overschrijft. Zie in de bijlage een voorbeeld van het bestand.

Bekijk bijlage Voorbeeld tekst naar datum.xlsx

Ik hoop dat jullie mij kunnen helpen.

Groeten Girt04

 

[AlexCEL]

Een optie:

B2: =DATUM(DEEL(A2;VIND.SPEC(",";A2)+2;4);VERGELIJKEN(LINKS(A2;3);{"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"};0);DEEL(A2;VIND.SPEC(",";A2)-2;2))

dat deze de huidige cel overschrijft.

Als je hiermee bedoelt dat de waarden in kolom A overschreven moeten worden is er VBA nodig...

 

[KristiaanL]

https://support.office.com/nl-nl/article/projectgegevens-exporteren-naar-excel-ce71a2a4-e9ab-4879-a6f9-19421a70c13d

Geen ervaring mee, maar lijkt mij niet logisch dat MS software niet te koppelen is (=tekst & Excel)

 

[SjonR]

VBA

Sub SjonR()
    For Each cl In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        cl.Value = Mid(cl, InStr(cl, " ") + 1, InStr(cl, ",") - InStr(cl, " ") - 1) & " " & Left(cl, InStr(cl, " ") - 1) & " " & Mid(cl, InStr(cl, ",") + 2, 4)
    Next
End Sub

kolom A wel eerst op tekst zetten ipv datum.

 

[Girt04]

Dank je wel AxelCEL!!

Dit is precies wat ik bedoelde en ook zo snel. Hier ga ik het mee redden. Nogmaals bedankt!

 

[Girt04]

SjonR ik ga jouw code ook proberen! Dank je wel voor de snelle reactie!

 

[SjonR]

Succes Gary! :thumb: