userform atum komt terug als tekst in sheet

[novec]

Hi ik heb een userform met een datum textbox

bij userform inituialize staat

txt_DatumMelding = Format(Now(), "short date")

Bij openen formulier zie ik ook de notitie 18-02-2016 dus dat lijkt OK

De datum wordt na klik op een button vervolgens in een TABEL in de sheet weggeschreven.
De betreffende kolom heeft als cel eigenschap "korte datum"

Na het invoeren heb ik bovendien een opdracjht om op deze kolom te selecteren.
Dat werkt niet omdat de waarde consequent als TEKST naar het formulier komt, Er staat dan 18-02-2016 op de nieuwe rij maar sorteren doet hij niet omdat hij de datum niet herkend als short date.

In hetzelfde form heb ook een getal notitie voor de kolom bon
Dit staat op userform initialize:

Dim Bon As Integer
txtbon = Format(Bon, "General Number")
    txtbon.Value = Worksheets("lokatie Fietspaden").Range("b5").Value

De waarde in Range B5 is opgemaakt als getal.
Toch komt de waarde als tekst naar mijn formulier....

dit staat er in de opslaan _click routine:

ActiveCell.Offset(0, 0).Value = txtbon
    ActiveCell.Offset(0, 2).Value = cbxLocatie
    ActiveCell.Offset(0, 4).Value = Txt_NauwkeurigeOmsch
    ActiveCell.Offset(0, 5).Value = Txt_GemeldDoor
    ActiveCell.Offset(0, 6).Value = txt_DatumMelding

Ik werk in nl versie Excel 2013

 

[edmoor]

Maak er eens dit van:
ActiveCell.Offset(0, 6).Value = CDate(txt_DatumMelding)

 

[novec]

Dank je wel. Dat werkt.
Heb je ook zo'n klasse tip voor het tweede deel van mijn vraag?

 

[jkpieterse]

Ligt eraan. is bon een geheel getal? Dan:

ActiveCell.Offset(0, 0).Value = CLng(txtbon.Value)

 

[novec]

Het is een heel getal maar met CLng werkte het niet. Ik even op internet lopen snuffelen en zag dat ik ook CInt kan proberen en die pakt hij wel.
Dus : OPGELOST!

:thumb::thumb::thumb::thumb:

Dank je allemaal!
Ik zal me gaan verdiepen in deze functions. Weet iemand een link naar een goed overzicht en uitleg?

 

[HSV]

Weet iemand een link naar een goed overzicht en uitleg?

De F1 toets in de Vba omgeving; beter kan je het niet krijgen.

Dan zou dit moeten werken met de code van Jan Karel.

Dim Bon As long