Datum in tekstformat weer naar datumgetal

[Gert Bouwmeeste]

Ik heb in een cel een datum staan, maar in tekstformaat, als:

07.09.2008

Ik wil hier in een macro weer een datumgetal van maken, dus in dit geval 39698

Als werbladfunctie werkt dit wel:
=DATUM(RECHTS(E17;4);DEEL(E17;4;2);LINKS(E17;2))

Ik krijg het echter in de macro niet voor elkaar. Wat is de opdracht in de macro dan?

 

[HSV]

Ik heb hem opgenomen met de recorder, zal vast wel anders kunnen.
Heb het aan een knop gehangen.
Hoop dat je dit bedoeld.

 

[Ginger]

HSV, Wat werkt, werkt!:thumb:
Maar iedere programmeur heeft weer zo z'n eigen ideen en inzichten...
Dus...zo zou het óók kunnen.

Sub ZetOm()

    With Selection
        .Value = DateValue(Replace(.Value, ".", "/"))
        .NumberFormat = "General"
    End With

End Sub

Groet, Leo

 

[Gert Bouwmeeste]

@HSV
Deze doet helaas niets.

@Ginger
Macro werkt, ik heb 'm iets veranderd:, "/" veranderd in "-".

Sub ZetOm()

    With Selection
        .Value = DateValue(Replace(.Value, ".", "-"))
        .NumberFormat = "dd-mm-yyy"
    End With

End Sub

Leo, bedankt maar weer.