Datumformaat verandert

[famjj]

Ik heb een VBA-script en wil daar in een cel om een datum andere tekst plaatsten.
De datum staat de cel, bijvoorbeeld 1977-08-29

Als ik onderstaand
If Cel.Value <> "" Then Cel.Value = "Op" & Cel.Value & "neer"

uitvoer krijg ik:
Op 29-08-1777 neer

Ik wil als uitkomst echter krijgen Op 1977-08-29 neer

Wie heeft een idee?

 

[wampier]

zoiets?

If cel.value <> "" Then cel.Value = "op " & Format(cel.Value, "yyyy-m-d") & " neer"

 

[edmoor]

Of deze:

="Op " & DAG(A1) & "-" & MAAND(A1) & "-" & JAAR(A1) & " neer"

 

[OctaFish]

@ ed: Volgens mij hééft TS die opmaak al en wil hij:

="Op " & JAAR(A1) &  & "-" & RECHTS("00" & MAAND(A1),2) & "-" & RECHTS("00" & DAG(A1),2) & " neer"

En met Format (een stuk makkelijker vind ik)

If cel.value <> "" Then cel.Value = "op " & Format(cel.Value, "yyyy-mm-dd") & " neer"

 

[edmoor]

Hij wil jaar-maand-dag. Dat had ik meteen kunnen doen inderdaad, maar mijn voorbeeld is duidelijk genoeg. Ik gebruik ook liever VBA maar dat is voor dit simpele dingetje niet nodig.

 

[OctaFish]

Hij wil inderdaad Jaar-Maand-Dag, dus als je een oplossing geeft, zou het handig zijn als die ook correct is . Al is hij an sich makkelijk aan te passen. Maar je hebt, net als wampier trouwens, niet gezien dat hij maand en dag met 2 cijfers wil, en dat maakt jouw oplossing dus sowieso al een stuk (en nodeloos) ingewikkelder.

 

[edmoor]

We zullen zien wat hij wil. Hij kan nu kiezen.

 

[OctaFish]

TS is ook zo'n beetje de enige die in alle talen zwijgt . Awel, wij hebben ons best gedaan...

 

[edmoor]

In alle talen inderdaad, zelfs in Basic

 

[OctaFish]

Volgens mij heb jij een onbedwingbare behoefte om altijd het laatste woord te hebben . Wedden dat je hier ook weer op reageert?

 

[edmoor]

Jij wint

 

[famjj]

If cel.value <> "" Then cel.Value = "op " & Format(cel.Value, "yyyy-mm-dd") & " neer"

werkt perfect!!!
Dank!!!!

 

[OctaFish]

Mag je de vraag op <Opgelost> zetten!

 

[famjj]

Hoe zet ik de vraag op <Opgelost> ??

 

[OctaFish]

Bovenin heb je een knop zitten in de blauwe menubalk waar dat mee kan.

 

[famjj]

Die had ik niet gezien. Bedankt!