bedrag in textbox

[BOMI]

Beste Forumleden.

Excuus bij voorbaat al voor mijn (in mijn optiek) simpele vraag.

Ik heb een formulier gemaakt waar een gebruiker een bedrag moet en kan invullen. Dit is een textbox genaamd txtbedrag.
Ik wil dat wanneer de gebruiker hier een waarde ingeeft van 1000000 er komt te staan : € 1.000.000,00 en dit als record wegschrijft in de lijst.

Ik heb mij wezenloos gezocht naar codes om dit klaarblijkelijk simpel iets te kunnen realiseren maar het lukt me gewoon niet.

issue nu is:
1. dat hij in de lijst dit als tekst wegschrijft.
2. hij bij invoer in het formulier het niet als bedrag toont.

Ik heb tal van mogelijkheden verkend maar kom er gewoon niet uit.

Wie kan mij helpen welke code ik achter de userform moet plakken om dit te tackelen.

Groet

 

[VenA]

Zeer waarschijnlijk kan je dat met format oplossen. Blijkbaar is het document en de al gebruikte code geheim dus zal je het hier voorlopig mee moeten doen.

 

[edmoor]

Probeer dit eens:

Range("A1") = Format(TextBox1.Text, "Currency")

 

[daan108]

Een textbox bevat tekst. Als je een getal in de tekstbox zet met iets als TextBox1.Value = Format(TextBox1.Value, "Currency") of wat voor opmaak dan ook in de achterliggende Private Sub TextBox1_Change(), dan is wat je ziet (de string) letterlijk de inhoud van de tekstbox, Bijvoorbeeld: je typt 3 en je ziet $ 3,00. Bij het volgende getal dat je tikt, wordt de string "$ 3,00" die geen getal meer is weer door de opmaak-functie gehaald wat niet gaat. Daarom kun je niets zinvols meer typen.

Ik zou het Euro-teken als label vóór het invoervak zetten.

Kijk hier eens
https://stackoverflow.com/questions/5980349/vba-text-box-displaying-currency

en hier:
https://superuser.com/questions/808798/adding-an-element-to-the-end-of-an-array