Datum notatie

[erbeeee]

Bestaat er een macro die automatisch een datum die is weergegeven als: 13072007 omzet naar 13-07-2007?

 

[Demeter]

Een voorzetje:

Sub datum()
Dim dagen, maand, jaar As String

dagen = Left(Range("A1"), 2)
maand = Mid(Range("A1"), 3, 2)
jaar = Right(Range("A1"), 4)

Range("A2") = dagen & "-" & maand & "-" & jaar

End Sub

 

[robdgr]

Zonder macro's zijn er twee oplossingen:

=DATUM(RECHTS(A1;4);DEEL(A1;3;2);LINKS(A1;2))
=(LINKS(A1;2)&"-"&DEEL(A1;3;2)&"-"&RECHTS(A1;4))+0

 

[Wigi]

Ferenc

Dat ik normaal gezien graag kort houd wist je al

Maar deze kon ik nu toch echt niet laten liggen

Sub datum()
    Range("A2") = Format(Range("A1"), "dd-mm-yyyy")
End Sub

Wigi

 

[Wigi]

Zonder macro's:

=TEKST(A1; "dd-mm-jjjj")

maar via Celeigenschappen de notatie instellen is veel beter aangezien het dan een datum blijft en geen tekst wordt (waarmee niet gemakkelijk gerekend kan worden).

Wigi

 

[Demeter]

@Wigi,

Ik heb je korte variant ook geprobeert maar krijg hem niet werkende.
Zit hier op een machine met office 2007. Maar daar zou het nie aan mogen liggen.

 

[robdgr]

@Wigi:

Ik sluit me bij Ferenc aan. De macro geeft de foutmelding overloop en je formule geeft de foutmelding #Waarde. Dus toch maar de Voorthuizer varianten?

 

[Wigi]

@Wigi,

Ik heb je korte variant ook geprobeert maar krijg hem niet werkende.
Zit hier op een machine met office 2007. Maar daar zou het nie aan mogen liggen.

Heb het in een bijlage gestoken.

 

[Demeter]

Ik zie het.

Maar kan nergens uit vinden of deze gegevens nu al als datum zijn opgemaakt of niet.
Het werkt in ieder geval wel als je je cel als datum hebt opgemaakt.