• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

TextBox

Status
Niet open voor verdere reacties.
F

flipper52

Gebruiker
Lid geworden
21 dec 2006
Berichten
79
Hallo, iedereen

Deze vraag is mischien al duizend keert gesteld, maar toch.
Hoe kan ik de waarden van een textBox veranderen naar Valuta.
Ter verduidelijking, in het eerste textvak staat 0,01€, in textvak twee zou een getal moeten komen (vb:5) en in textvak drie de uitkomst (Textvak2 * Textvak1) 0,05 € en dit in Euro.
Daarna zou ik Textvak3 moeten kunnen opslaan in Euro in een blad.

Groetjes, Rudy
 
Laatst bewerkt:
Gebruik de Format functie in VBA als je die textboxen wilt opmaken met bv. valuta.

Met vr gr
jack
 
Hallo, Jack Nouws

Excuseer me maar ik ben nog een leek in VBA, wat bedoel je met Format en die properties vindt ik niet terug na ik rechts geklik heb ( ik werkt in 2007).
Kun je alstublief iets meer uitleg geven.

Groetjes, Rudy
 
flipper52 zei:
Kun je alstublief iets meer uitleg geven.
Klik om te vergroten...
Als je bij het venster Eigenschappen naast tab "Text" gaat, daar kun je ALT 128 intoetsen dan is je tekstvak voorzien van het Euro Teken. of is dit niet wat je bedoeld?

Met vr gr
Jack
 
Hallo, Jack Nouws

Heb een voorbeeld bij gevoegt, dit zal het veel duidelijker maken (hopelijk)
Druk op Innput en het UserForm verschijnt.
Wat ik wil is dat hij de gegevens opslaat in Blad2 in Euro en niet met die groene driehoekjes, zo kan ik niet rechtstreeks mijn berekeningen maken.

Groetjes, Rudy
 

Bijlagen

Hallo flipper52

Ik zou op deze manier mijn code aanpassen,
Sub plaatsen()
Dim lVolgendeRij As Long

lVolgendeRij = Blad2.Cells(Rows.Count, 1).End(xlUp).Row + 1

' Invullen van de cellen
Blad2.Cells(lVolgendeRij, 1).Value = Cells(1, 2)
Blad2.Cells(lVolgendeRij, 2).Value = UserForm1.ComboBox1.Value
Blad2.Cells(lVolgendeRij, 3).Value = UserForm1.ComboBox2.Value
Blad2.Cells(lVolgendeRij, 4).Value = CDbl(UserForm1.eencent.Value)
Blad2.Cells(lVolgendeRij, 5).Value = CDbl(UserForm1.tweecent.Value)
Blad2.Cells(lVolgendeRij, 6).Value = CDbl(UserForm1.vijfcent.Value)
Blad2.Cells(lVolgendeRij, 7).Value = CDbl(UserForm1.tiencent.Value)
Blad2.Cells(lVolgendeRij, 8).Value = CDbl(UserForm1.twintigcent.Value)
Blad2.Cells(lVolgendeRij, 9).Value = CDbl(UserForm1.vijftigcent.Value)
Blad2.Cells(lVolgendeRij, 10).Value = CDbl(UserForm1.eeneuro.Value)
Blad2.Cells(lVolgendeRij, 11).Value = CDbl(UserForm1.tweeeuro.Value)
Blad2.Cells(lVolgendeRij, 12).Value = CDbl(UserForm1.vijfeuro.Value)
Blad2.Cells(lVolgendeRij, 13).Value = CDbl(UserForm1.tieneuro.Value)
Blad2.Cells(lVolgendeRij, 14).Value = CDbl(UserForm1.twintigeuro.Value)
Blad2.Cells(lVolgendeRij, 15).Value = UserForm1.vijftigeuro.Value

End Sub
Klik om te vergroten...
En als je dan ook nog bij (waar de geld bedragen moeten komen) cel eigenschappen optie "Financieel" aanklikt wordt alles netjes in euro's geplaatst.

Met vr gr
Jack
 
Hallo, Jack

Excuseer mij, maar als ik deze code inbreng geeft hij mij een foutmelding.
Wat doe ik fout.

Groetjes, Rudy
 
Hallo, Jack

Heb even je bestandje bekenen en ik krijg nog steeds de zelfde melding nadat ik op opslaan gedrukt heb " Typen komen niet met elkaar overeen".
Als ik dan op foutoplossing druk laat hij mij vb. dit zien
"Blad2.Cells(lVolgendeRij, 5).Value = CDbl(UserForm1.tweecent.Value)"
Ter verduidelijking, in TextBox1 vul ik een getal in vb.5, in eencent moet dus de som komen van (TextBox * Label1), deze gegevens van eencent dan opslaan in Blad2 in Euro.

Groetjes, Rudy
 
Hallo flipper52,

Ik heb de topic niet gevolgd maar ik denk dat ik in de goede richting zit , althans de foutmelding die jij en ik kreeg bij het niet invullen van alle textboxen .
Ik heb deze weggewerkt door een 0 waarde te geven in de value van de textbox .
bekijk het eens
 

Bijlagen

Hallo, trucker10

Mijn beste, dit is het helemaal, ik krijg nu de foutmelding niet meer.
Alles klopt nu.
Hartelijk bedankt.

Natuurlijk gaat mijn dank uit aan jullie beiden (Jack Nouws en trucker10).
Had Jack niet gereageerd, dan waren wij nu niet aan de oplossing gekomen.


Groetjes, Rudy
 
Laatst bewerkt:
Rudy , graag gedaan .
Ik heb idd verder gewerkt op het bestandje van Jack :thumb:.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan