Formater tal m. 2 decimaler i userform/tekstfelt

Private Sub txtÅbningstal1_AfterUpdate()
txtÅbningstal1 = Format(txtÅbningstal1, "###,###.00")
End Sub

denne sub formaterer godt nok feltet med 2 decimaler,
men når tallet overføres til regnearket, så formateres
tallet i cellen, som tekst, og er venstrestillet
hvordan undgår jeg det?

Range("A1") = val(txtÅbningstal1)

hej kabbak
det er sikert den rigtige løsning du viser, men jeg har stadig
problemer med tallet sm overføres til regnearket-
hvis jeg taster 777 i formularen, formateres den fint til 777,00
og ligeledes i regnearket, men hvis jeg taster 7777 ændres det til
7,777.00 i formularen som det skal, hvorimod regnearket formaterer det
til 7,78  - er den gal med formateringen i subben?

prøv at lave denne om
Format(txtÅbningstal1, "###,###.00")
til
Format(txtÅbningstal1, "###.###,00")

desværre heller ikke -  7777 gir 7777,00000

7777,00000 i formularen, ok i regneark

behol det gamle format og skriv til cellen sådan

Range("A1") = txtÅbningstal1*1

7777 gir 7777,00000 i formular og 7.777,00 i regneark
obs uden 'val'

du skulle bruge denne

Format(txtÅbningstal1, "###,###.00")

ok kabbak, så virker det
før : Range("b2").Value = txtÅbningstal1.Value
nu  : Range("b2") = txtÅbningstal1 * 1

er det korrekt forstået?

Tak for hjælpen kabbak, smid et svar

ja korrekt ;-))