Opmaak textbox als datum

[MarcoApeldoorn]

Hoi allemaal,

Zit nog met een klein punt, de opmaak.

Private Sub TextBox1_Change()
    ActiveSheet.Cells(3, 14) = TextBox1.Value
End Sub

Zo vang ik de invoer naar de cell.
Maar als ik invoer als datum 03-01-2012 dan verschijnt in de cell de datum als 01-03-2012.
Dit zou door opmaak van de Textbox voorkomen kunnen worden, maar is dit mogelijk?

Alvast bedankt.

 

[HSV]

Hoi,

= datevalue(TextBox1.Value)

 

[MarcoApeldoorn]

Harry,

Private Sub TextBox4_Change()
ActiveSheet.Cells(3, 9) = DateValue(TextBox4.Value)
End Sub

Moet dan de code worden?

Wil in het formulier invoeren 15-07-1968, maar krijg als error "Types komen niet overeen"

Alvast bedankt.

Marco

 

[HSV]

Dat komt omdat je het eerste getal typt en de code al begint te runnen.
Type je het tweede getal loopt de code nog een keer.
Maar bij geneen getal is het een datum.

Ik zou een commandbutton aanmaken en dan pas de datum wegschrijven.

 

[MarcoApeldoorn]

Harry,

Dus als ik de code van alle textboxen onder de OK knop in de code zet moet het goed gaan?
Ga ik zo proberen en laat je weten of het werkt.

Alvast bedankt

 

[MarcoApeldoorn]

Harry,

Thanks, werkt perfect.

Greetz,

Marco