Invoer geeft tekst ipv getal

[CorVerm]

Beste mensen,
Middels een user form vul ik gegevens in. Een van de velden moet een datum wegzetten maar volgens mij wordt de datum als tekst weggezet. Als ik het jaar uit de datum wil halen (=JAAR(A1) krijg ik het volgende te zien 27-6-1905 terwijl de datum 20-2-2005 is.
De code die gebruikt wordt is:
ActiveCell.Offset(1, 1).Value = txtDatum.Text
Het zal ongetwijfeld te maken hebben met de toevoeging
.Text Maar welke toevoeging moet er dan staan?

Groeten,

 

[LucB]

Cor,

Deze doet het bij mij.

Cells(1, 1).Value = txtDatum.Text

Opnemen in Private Sub txtDatum_Change()

of in de code voor een CommandButton_Click()

 

[LucB]

Cor,

Het kan nog korter,

Cells(1, 1) = txtDatum

 

[CorVerm]

Luc,
Misschien ben ik niet helemaal duidelijk geweest maar het invoeren van de datum is een onderdeel uit een geheel. Daarom hier het geheel waarvan de datum weergave deel van uitmaakt.
Range("C" & CStr(Rows.Count)).End(xlUp).Select
ActiveCell.Offset(1, 0).Value = txtVolgnr.Text
ActiveCell.Offset(1, 1).Value = txtDatum.Text
ActiveCell.Offset(1, 2).Value = txtGas.Text
ActiveCell.Offset(1, 3).Value = txtTabel.Text
ActiveCell.Offset(1, 4).Value = txtMeter1.Text
ActiveCell.Offset(1, 5).Value = txtMeter2.Text
ActiveCell.Offset(1, 6).Value = txtWater.Text

 

[CorVerm]

Luc,
Dit alles trouwens via een invoerscherm. (heet toch user form?)

 

[LucB]

Cor,

Helemaal goed.

Kijk even of het klopt.

Ik hou h'm zelf ook.

 

[CorVerm]

Luc,

Jij ook helemaal goed. Bedankt.

Heb ik je op een idee gebracht omdat je het zelf ook houdt?

Groeten,