Opschonen en converteren van lang formaat datum naar dd-mm-jjjj

[hmwul]

Het volgende komt meer dan eens voor.
In een kolom heb ik een lang formaat datum in het Engels staan, b.v. 15 February 2018
Meestal staat/staan daar nog andere leestekens bij, b.v. ( ) dus (15 February 2018), of alleen met haakje sluiten.

Op dit moment vervang ik alle Engelse maanden door Nederlandse (January -> januari, February -> februari, etc.
Daarna vervang spatie door '-', je krijgt dan 15-februari-2018 en vervang ik eventuele leestekens door niets
Daarna cel eigenschappen naar dd-mm-jjjj (NL versie van Excel)

Ik heb géén verstand van VBA, maar ik kan mij voorstellen dat dit middels een script op te lossen is?
Er zal geen functie voor bestaan, lijkt mij.

Heeft iemand een suggestie?

Bij voorbaat dank!

Klein bestandje toegevoegd.

 

[AlexCEL]

In bijlage een omzetting met deze formule:

B2: =DATUM(RECHTS(SUBSTITUEREN(A2;")";"");4);SOMPRODUCT((--ISGETAL(VIND.SPEC({"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"};A2))*{1;2;3;4;5;6;7;8;9;10;11;12}));LINKS(SUBSTITUEREN(A2;"(";"");2))

 

[hmwul]

Dit is ongelooflijk !
Echt fantastisch!

Super, super bedankt. Wat een getob al die jaren.
Werd het zo zat dat ik maar een vraag stelde hier.

Heel zuinig bewaren nu

Hiervoor heb ik een klein bestandje waar de diverse formules in staan, ooit door cracks als jij bedacht.
(met wat voorbeeldjes erbij uiteraard).
Ik copy paste zo'n formule (met een ' ervoor uiteraard), wijzig de cel (in dit voorbeeld A2) en klaar.
Na een week prutsen en knoeien zou ik er nog niet uitgekomen zijn.

Nogmaals, enorm bedank! :thumb: :thumb:

 

[jkpieterse]

Of met PowerQuery (Ophalen En Transformeren)

 

[E v R]

Leuk en slim jkp!

 

[hmwul]

Heel fraai! Absoluut. Daar moet ik eens op m'n gemak naar kijken: Power Query is voor mij iets nieuws, dus moet ik kijken of het überhaupt wel 'geschikt' is voor mij...
Dank in ieder geval.

 

[AlexCEL]

Conclusie: sneller een vraag stellen...

Succes met de nieuwe mogelijkheden.

 

[jkpieterse]

Powerquery is zooooooo krachtig, dat zou iedere Excel gebruiker eigenlijk direct moeten leren.

 

[HSV]

Omdat PowerQuery hier ontbreekt.

=ZOEKEN(9,99999999E+307;ALS.FOUT(DATUMWAARDE(SUBSTITUEREN(SUBSTITUEREN(A2;{"y";"rch";"ay";"ne";"ct"};{"i";"art";"ei";"ni";"kt"});")";""));""))