getal wegschrijven naar veld via userform als bedrag

[Friend]

Beste forummers,

In de wegschrijf code van mijn userform gebruik ik het volgende stukje code om een datum invoer op het userform goed weg te schrijven, als datum, naar de betreffende rij/cel in excel.

With ws.Cells(iRow, 4)
    .Value = CDate(Me.txtReisdatum)
    .NumberFormat = "ddd dd-mm-yyyy"
End With

Ditzelfde moet ik doen met een bedrag

Kan iemand mij zeggen welke code, format, ik hiervoor moet gebruiken.

Friend

 

[gast0660]

Hoi,
iets met €
.Value = CCur(TextBox1.Value)
Iets met nummers
.Value = CInt(TextBox1.Value)

 

[HSV]

Voor valuta:
Je kan je gewoon de punt invoeren van het numerieke toetsenbord gedeelte.

.Value = FormatCurrency(Replace(TextBox1, ".", ","))

Voor je datum.

.Value = format(CDate(txtReisdatum), "ddd dd-mm-yyyy")

 

[Friend]

Philiep,

Hartelijk dank voor je reactie:thumb:

Dat doet precies wat ik wil

Nogmaals dank

Friend

 

[Friend]

Harry,

Hartelijk dank voor je reactie:thumb:

Prima ik krijg het mooi in euro

Alleen is de opzet eigenlijk niet om het met euro teken te krijgen,

Kom ik dan automatisch bij de code van Philiep?

Thanks

Friend

 

[HSV]

Die van Philiep converteert een waarde naar een Integer.
Gebruik anders

 cdbl(textbox1)

 

[Friend]

Philiep,

Toch nog even terug komend op jouw oplossing.

Ik gebruik jouw code:

 .Value = CInt(TextBox1.Value)

alleen dan verdwijnen de cijfers achter de komma

Dat is niet helemaal de bedoeling.

??

Friend

 

[Friend]

Harry,

Dat is hem helemaal

Zeer veel dank :thumb:

Friend

 

[HSV]

Graag gedaan @Friend,

Dan mag je de vraag nog als opgelost markeren.
Bvd.