Bedragen invoeren in UserForm

hondel · 6 feb 2009

Ik zit me toch een partij te *****n!
Ik wil een UserForm gebruiken om een aantal bedragen in te voeren.
Dat is op zich zelf niet zo moeilijk maar hoe krijg ik het voor elkaar dat er geen verkeerde dingen ingevoerd worden?

Ik heb mijn probeersel erbij gedaan.
Ik hoop dat Jullie het professioneler op kunnen lossen want dat van mij werkt niet echt.

Jeroen

A4A · 20 mei 2009

Als ik het goed begrijp bedoel je met "er geen verkeerde dingen ingevoerd worden" dat als je bijv. 1.1 zou intikken in een veld dat hij 11 er neer zet. Dit kan je vrij makkelijk doen door onderstaande code

Code:

Private Sub txtVeld_Change()
a = txtVeld.Value

    If Not IsEmpty(a) Then

        a = VBA.Replace(a, ".", ",")
        txtVeld.Value = a

    End If
End Sub

Hier gaat hij kijken als er wat wordt ingetikt of er een . (punt) staat, staat deze er dan wordt deze automatisch omgezet naar een , (komma). Als het veld leeg is dan gaat hij niet zoeken naar een . (punt)

Gr. René

hondel · 21 mei 2009

Geweldig!

Dit is net wat ik moest hebben.
Ik had het zelf al wat in elkaar geknutseld waarbij Excel teken voor teken na kijkt, maar dit is veeeeeeeeeeeeeeel beter.
Bedankt!:thumb:

Jeroen

Bedragen invoeren in UserForm

hondel

Gebruiker

Bijlagen

A4A

Gebruiker

hondel

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy