Euroteken

[DutchOirs]

Goedenavond allen,

Zit met een vraagje en wie weet dat de die-hards het weten. (denk het wel)

Heb een TextBox waar een (geld) bedrag in komt
Gebruikt Format om de juiste opmaak te verkrijgen met een € teken.

Nu moet ik met deze tekst gaan rekenen, maar kom in de problemen met dat € teken.

Is er een optie om dat te omzeilen?

Vr. Gr.

Dutch

 

[OctaFish]

Format zet je in de eigenschap van het tekstvak; niet in de formule. Je veld moet een getal blijven om ermee te kunnen rekenen.

 

[HSV]

Doe het eens zo om de textbox op te maken.

textbox1 = format(range("a1"), "currency")

 

[DutchOirs]

Thanks OctalFish,

zit ff te kijken bij die eigenschappen van deze textbox, maar zou niet weten waar ik hem kan vinden.

in een cel is dat zo. maar in een TextBox niet zover ik weet.

Vermoed dat achter Tekst wat moet komen, maar wat?

Ben er nog ff mee aan het stoeien en zie dat m'n vraagstelling niet helemaal juist is.

Heb dus een tekstbox met een bedrag ( 2 decimalen)
Met Format(TekstBox) dit met een Euro teken opgemaakt.

Nu moet dit bedrag (met euroteken) in een cel.

Deze cel is met cel eigenschappen / getal / aangepast opgemaakt met een euroteken.
En hier gaat het fout.

Dus zat te denken : met het overzetten van TextBox naar cel iets te gebruiken wat alleen het bedrag overzet.

 

[DutchOirs]

Heb het zo opgelost, maar volgens mij is er een kortere manier...

InvTB9 = een TextBox
TmpBedrag = single

      .Range("I" & ItemRow) = InvTB5                        ' zet omschrijving neer
      TmpBedrag = CDbl(InvTB9)
      .Range("L" & ItemRow) = TmpBedrag                     ' zet bedrag neer van verkoop Warrants zonder € teken

 

[edmoor]

Wat in een Textbox staat is wat het objecttype al zegt, altijd tekst. Als je er alleen cijfers invult kan je er mee rekenen door dit te converteren naar het juiste datatype. Als je het Euro teken erbij wilt hebben zet deze dan in het label bij de textbox:

 

[DutchOirs]

Hoi Edmoor,

Ja wat je zegt heb ik ook al eerder gebruikt, maar kost weer meer labels, blijf zoeken

Wat HSV zei, ook geprobeerd maar blijft hetzelfde.

Heb het nu geconverteerd naar een single en dan kan je het gebruiken

Kost ook weer meer data, maar goed is niet anders.

Thanks allemaal voor de moeite van meedenken en sluit het draadje maar hierbij.

Vr. Gr.

Dutch

 

[edmoor]

Je hebt neem ik aan toch al labels bij de tekstboxen? Die hoef je dat alleen maar aan te passen.
Een extra label is daar niet voor nodig.

 

[DutchOirs]

hoi edmoor,

ja zekers, alleen staan die er niet tegenaan en dan staat dat euroteken er niet netjes voor...

dus vandaar dat ik probeer het altijd vlakbij het bedrag te zetten

 

[HSV]

Zo moeilijk kan het toch allemaal niet zijn?

 

[edmoor]

Of dit achter het userform:

Private Sub textbox1_AfterUpdate()
    TextBox1 = Format(TextBox1, "€ #,##0.00")
End Sub

Private Sub UserForm_Initialize()
    TextBox1 = "€ "
End Sub