Opmaak "financieel" overbrengen van textbox naar werkblad?

[Gielleke]

Beste leden,

Graag wou ik beroep doen op jullie kennis.

In mijn voorbeeld, zie je 2 textboxen staan naast "inkomsten" en "uitgaven". Daar komen dus geld bedragen in te staan. Deze breng ik over naar mijn werkblad naar kolom C en D waar de opmaak is ingesteld op "financieel" voor gans de kolomen.

Wat is nu mijn probleem: Als ik een getal in mijn textbox invul (vb 230,00) dan komt deze op mijn werkblad als een gewoon getal en dan nog eens met een foutmelding.

Ik zou graag hebben dat deze wordt weergegeven als een financieel notatie.

Kunnen jullie mij soms iets meer vertellen of helpen?
Hartelijk Dank!!

Mvg,

 

[Roncancio]

Het enige wat je hoeft te doen is .Value toevoegen aan de code.
Zie hieronder:

Private Sub cmdInvoeren_Click()
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = txtDatum
Range("B" & x) = cboBetalingsmethode
Range("C" & x) = txtInkomsten[B].Value[/B]
Range("D" & x) = txtUitgaven[B].Value[/B]
End Sub

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Bedankt voor jou snelle reactie.
De oplossing zoals u vertelde werkt.

Maar zie wel dat excel nog een foutmelding geeft op de waarden die men ingeeft met een ","

vb: als je in een textbox 260 of 260.20 dan geeft hij wel een goed resultaat.
Enkel als men in het textbox 260,50 ingeeft met een komma dan werkt hij niet meer.

Is er daar nog een oplossing voor?

Alvast bedankt!!
Mvg,

 

[Roncancio]

Tuurlijk.

Private Sub cmdInvoeren_Click()
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = txtDatum
Range("B" & x) = cboBetalingsmethode
Range("C" & x) = CDbl(txtInkomsten.Value)
Range("D" & x) = CDbl(txtUitgaven.Value)

End Sub

CDbl converteert de waarde naar een Double variabele.


Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Heb even de code aangepast.
Zoals u merkt werkt deze stukje voor stukje beter.

Maar nu krijg ik nog enkel een foutmelding na het plaatsen.
"Fout type 13" in vba

Alvast bedankt!!
Mvg,

 

[Roncancio]

:shocked::shocked:
Op welke regel krijg je de foutmelding?

Ik krijg namelijk helemaal geen foutmelding.

Met vriendelijke groet,


Roncancio

 

[Gielleke]

Beste Roncancio,

Gebruikt u ook excel 2007? Misschien ligt het daar aan?

Alles werkt goed, maar als ik een bedrag vb: 260,25 intyp en op invoer druk.
Plaatst hij het bedrag eigenlijk wel mar krijg ook op het zelfde moment een foutmelding van visual basic "dat de typen niet overeen komen"

Ken er niet zo veel van maar, kanhet niet zijn dat ik mijn textboxen nog als variable moet benoemen? Zo iets als "Dim txtInkomsten As Double" ??

Misschien is dat de fout.
Hartelijk dank!!

Mvg,

 

[CorVerm]

Bij mij in Excel 2007 werkt het perfect zonder foutmelding. Naar de oorzaak van de foutmelding bij jou kan ik slechts raden. Heb je misschien nog een bestand openstaan wanneer je dit bestand gebruikt?

 

[Gielleke]

Hey mensen,

Nu val ik zelf van mijn stoel!!:shocked:

Als ik bij mijn inkomsten 260,10 vb in typ en bij uitgaven tegelijk 260,10 dan krijg ik geen foutmelding en is het zoals het moet zijn.

Maar als er maar één textbox is ingevuld met een bedrag krijg ik de foutmelding.

Raar maar waar.

Mvg,

 

[CorVerm]

Voor het geval je niet naar de foutmelding heb gekeken:

Range("D" & x) = CDbl(txtUitgaven.Value)

of wanneer je het andere tekstvak leeg laat ("C" & x)
Nu heb ik weinig verstand van VBA maar je zult of een nul in moeten geven of de code aanpassen. Overigens als je een nul ingeeft komt er in de cel (vanwege de opmaak Financieel): € - te staan. Als je dat niet hinderlijk vindt kun je het zo laten.

 

[Hoornvan]

Gielleke,

Hij schrijft de getallen nu wel normaal weg als je het Num.Toetsenbord gebruikt.
Ik heb dit weggehaald.

Range("D" & x) = [COLOR="Red"]CDbl([/COLOR]txtUitgaven.Value[COLOR="red"])[/COLOR]
Range("D" & x) = txtUitgaven.Value

 

[Gielleke]

Hey Hoornvan,

Tis allemaal raar.

Werkt het ééne niet dan wel het andere weer.

Ik wacht nog even af misschien komt er nog wel iemand met een oplossing en nog iets anders als de vorige.

Wat niet wil zeggen dat de laaste oplossingen al goed zijn!!

Alvast bedankt.
Mvg,

 

[Hoornvan]

Gielleke,

Werkt het ééne niet dan wel het andere weer.

Wat werkt er niet?
Ik gebruik Excel 2007 en alles werkt hier goed.

 

[Gielleke]

Beste Hoornvan,

Het zou logischer geweest zijn dat men een komma in geeft in de textbox.
Maar misschien heeft het ook zijn voordeel om alleen te kunnen werken met het numeriek klavier doormiddel van het punt.

Alvast bedankt!!
Mvg,

 

[Hoornvan]

Gielleke,

Het zou logischer geweest zijn dat men een komma in geeft in de textbox.

Met getallen werk ik altijd met het Num.Toesenbord en word de punt altijd een , ook als je dat in een cel doet.
Met het normale toetsenbord moet je wel de , gebruiken anders komt er een punt te staan.
Ik denk dat dit het probleem is bij je.

 

[Hoornvan]

Ik heb het even geprobeerd en als je met het gewone toetsenbord een punt zet word het ook een komma bij het wegschrijven.
Doe je de komma dan schrijft hij het als text weg en komt het euro teken er niet voor.

 

[Gielleke]

Beste,

Zoals u zegt is het gebruik van het . op het numeriek klavier echt wel beter!!:thumb:

Dan rest er mij nog alleen iedereen van harte te bedanken!!

Bedankt.

Mvg,

 

[Hoornvan]

Gielleke,

Zet hem nog even als opgelost