Prijzen in een formulier

[Willem Blaas]

Geacht forum,

ik laat door een macro prijzen ophalen uit een tabel, deze staan in een format financieel met 2 cijfers achter de komma genoteerd.

in het formulier komen deze dan tevoorschijn als bv wanneer er € 2,50 ingevoerd is als 2,5 tevoorschijn, en € 2,00 als 2

ik denk dat het textveld een format moet krijgen, voordat deze geladen wordt.

kunt u mij vertellen hoe ik dat format moet omschrijven ? het textveld heet textinkoop

bij voorbaat dank.

 

[pasan]

probeer deze eens

Dim Mycurr As Double
Mycurr = CCur(ActiveSheet.Range("A1")) 'pas aan naar eigen bereik uiteraard
TextBox1 = Format(Mycurr, "€ #.#0,")

 

[Willem Blaas]

ga ik proberen ,bedankt

 

[Willem Blaas]

ik heb hier even de macro staan, ziet er wat rommelig uit zo maar als alles weer netjes is werkt t wel
het gaat om de in - en verkoop. ik weet niet precies waar je oplossing moet komen, kun jij een kijken ?

Private Sub Cbuitvoer_Click()
    Sheets("gegevens_prijzen").Select
    
      On Error GoTo foutje_01
      
    Range("A1").Select
    Textcode_08 = Format(Textcode_08, "€ #.#0,")

    Dim strcode As Variant
    Dim strnaam As Variant
    
    Dim strinkoop As Double
    strinkoop = Format(strinkoop, "€ #.#0,")

 ''   strinkoop = CCur(ActiveSheet.Range("A1")) 'pas aan naar eigen bereik uiteraard
 ''   Textcode_08 = Format(Textcode_08, "€ #.#0,")

    
  ''  Dim strinkoop As Currency
    Dim strverkoop As Variant
    Dim stropm As Variant
    strcode = Txtcode
    
    If Txtcode = "    " Then GoTo foutje_01
    If Txtcode = "" Then GoTo foutje_01

    Columns("A:A").Select
    Selection.Find(What:=Txtcode, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
    ActiveCell.Select
    strcode = ActiveCell
    Selection.Offset(0, 1).Select
    strnaam = ActiveCell
    Selection.Offset(0, 1).Select

    strinkoop = ActiveCell
    Selection.Offset(0, 1).Select
    
    strverkoop = ActiveCell
    
     Sheets("open").Select
     Textcode_06 = strcode
     Textcode_07 = strnaam
     Textcode_08 = strinkoop
     Textcode_09 = strverkoop
   GoTo einde
    
foutje_01:    Sheets("open").Select
                Unload frmgegevens_01
                frmnotfind.Show

    Txtcode = Empty
einde:

End Sub

 

[pasan]

strinkoop geef je de waarde van "A1"
maar je geeft deze waarde niet aan Textcode_8, en zoals ik het begrepen heb is Textcode_8 een textbox waarin je de waarde van "A1 wilt zien"

'' strinkoop = CCur(ActiveSheet.Range("A1")) 
'' Textcode_08 = Format(Textcode_08, "€ #.#0,")

probeer het eens zo

 strinkoop = CCur(ActiveSheet.Range("A1"))
 Textcode_08 = Format(strinkoop, "€ #.#0")

 

[pasan]

Hier een voorbeeldje om met geld te rekenen
Misschien heb je er wat aan

er zit een webbrowser op de userform deze laat http://www.wisselkoers.nl/calculator zien

Ik weet dat je hier niet om gevraagd hebt, maar dit is gewoon maar een voorbeeld