Wegschrijven als datum

[ronald1986]

Mensen,

Ik heb een vraag over het wegschrijven van data in een userfield als datum.

Op dit moment heb ik een userfield waar ik bijvoorbeeld invoer 16-4-12.
Dit schrijf ik weg op de volgende manier:

Sheets("Containerlabels Afdrukken").Range("D6") = TextBox2.Value

Als dit weggeschreven wordt staat dit in de sheet niet als datum.
Kan ik dit ook wegschrijven als datum?

Met vriendelijke groet,

Ronald

 

[HierEnNu]

Dit zou moeten werken:

with Sheets("Containerlabels Afdrukken").Range("D6")
.Value = DateValue(TextBox2.Value)
.NumberFormat="dd-mm-yyyy"
end with

 

[Niels28]

of zo:

Sheets("Containerlabels Afdrukken").Range("D6") = Cdate(TextBox2.Value)

Niels

 

[ronald1986]

Ok dan, ik had het ondertussen zelf ook al opgelost met onderstaande code:

If IsDate(TextBox2.Value) Then Sheets("Containerlabels Afdrukken").Range("D6") = DateValue(TextBox2.Value)

Maar in ieder geval bedankt!

Groet Ronald