• 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.

Userform TextBox als getal met duizendteken

Status
Niet open voor verdere reacties.
C

carloschouw

Gebruiker
Lid geworden
15 jun 2015
Berichten
225
Hoi,

In een userform heb ik een textbox waar men een getal in kan vullen. Wanneer men b.v. 25.000 invult dan wordt er netjes 25.000 weggeschreven. Alleen wanneer men 25000 (zonder duizendteken) invult wordt het getal 25 weergegeven.

Ik tracht het op te lossen met de code:

Code: 
Private Sub UserForm_Initialize()

TextBox1.Text = Format(Number, "0.0000")

End Sub

maar dat maakt niets uit. Is er een methode dat wanneer je mét of zónder het duizendmaalteken er altijd de juiste waarde wordt weergeven, dus in beide gevallen 25.000 (met punt op het duizendmaal)?
 
Je kunt beter een voorbeeld plaatsen van wat misgaat.
 
Je vertelt er niet bij wat, wanneer, waar naar toe gaat.
In je voorbeeld vul je alleen zelf de TextBox vanuit de code.
 
In de bijlage een voorbeeld, hopelijk is het zo eenvoudiger om uit te leggen.

De userform start vanzelf op bij het openen van het bestand. Wanneer je bij tekst 2 10.000 invult dan verschijnt er 10, vul ik 10000 in dan verschijnt er 10.000


Bekijk bijlage TEST.xlsm
 
En je VBA-project is beveiligd met een wachtwoord! Niet handig.
 
Doet dit het al voor je:
Code: 
ws.Cells(iRow, 6).Value = Val(Replace(Me.TextBox5.Text, ".", ""))
 
Kleine aanpassing voor de labeltext

Hiermee loopt de labeltext gelijk met de kolomkoppen
 

Bijlagen

  • userform_test.xlsm
    53,8 KB · Weergaven: 37
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan