Tekstbox in euro's weergeven

[Roma]

Beste,
Onderstaande code geeft een getal weer (H3).Dit getal wil ik graag in euro's weergeven.
Wie kan mij helpen?

Me.TextBox1.Text = CStr(ThisWorkbook.Sheets("blad1").Range("H3").Value)

 

[edmoor]

Dat kan je doen door de eigenschappen van H3 op Financiëel in te stellen.

 

[Roma]

Edmoor,
Misschien heb ik mijn vraag fout gesteld. Ik bedoel dat in de textBox het in euro's weergegeven moet worden

 

[edmoor]

Ik kan je ook gewoon verkeerd begrepen hebben natuurlijk

Kijk eens naar de Format functie.
http://www.techonthenet.com/excel/formulas/format_number.php

 

[snb]

gebruik

textbox1.text=formatcurrency(1200,2)

 

[edmoor]

Nog beter Die kende ik ook niet.

 

[Roma]

SNB,
Deze code werkt wel maar de getallen zijn altijd anders.


In de bijlage heb ik een voorbeeld.
Alvast bedankt.

 

[edmoor]

Uiteraard vervang je dat getal door de waarde van H3:
TextBox1.Text = FormatCurrency(Range("H3"), 2)

 

[Roma]

Bedankt het werkt super

 

[edmoor]

Met dank aan snb

 

[snb]

VBA heeft nog meer leuke formatmethoden....alt-F11, F2 (object Browser)