formatering af tal indlæst i en userform.

Værdien skal formateres inden du smider den i tekstboksen. Fx.afrundet til 1 decimal:

tb1.text=Round(hent_gl_data,1)

Hej Brynil
Jeg har selv været inde på den løsning, men det afstedkommer et andet problem. Hvis decimalen er 0, så vises den ikke i userformen. Den woorkbook, hvor data hentes fra er, er cellerne formateret til at vise én decimal. Har du evt. en løsning på dette problem?
Kan man ikke i en userfor lave en matrix som tallene indlæses i, og som brugeren efterfølgende bruger som maske til indtastning?

mvh/Hubertus

tak. for hurtigt svar.

Jeg sad selv og rodede med disse to:

Dim i As Double
i = 1433423.059
TextBox1.Text = Format(WorksheetFunction.RoundDown(i, 1), "###.0")
TextBox2.Text = Format(WorksheetFunction.RoundUp(i, 1), "###.0")

Husk iøvrigt, at et Excel-ark anvender det oprindelige antal decimaler i beregninger og ikke det formaterede tals decimaler.

Hej igen
Det var jo meget det jeg søgte. Er der mon en mulighed for at man kan kombinere formatet således at det kan bruges til indtastning af et registreringsnummer? altså to bogstaver og 5 tal? 

mvh. Hubertus

Du vil nok være nødt til at dele værdien op i tekstdel og taldel og så formatere på taldelen. Du kan efterfølgende samle dem til en streng. Mener ikke der er en funktion der klarer en numerisk ændring på en streng (men hæng mig ikke hvis jeg tager fejl og der gemmer sig noget indbygget i Excel.)

Opdeling mv afhænger af værdierne; antal bogstaver, tal, placering osv.

Du har desværre nok ret. Jeg vil arbejde videre med løsningen.
Giver du et svar, så du kan få dine velfortjente point.

mvh./Hubertus

ps. tak for god inspiration :-)

Så lidt :)