Waarde invullen via userform geeft fout

[BasNL]

Hallo allemaal,

Ik heb een sheet waarin een getal wordt gevoerd via een Userform.
Echter krijg ik een foutwaarde: het getal word in gevuld als tekst, waardoor ander formules in de sheet weer niet werken.



Ik kan niet achterhalen waar dit nu fout gaat.
De cel waar in het geplaatst word is ingesteld als Getal.

De Usferform haalt de waarde op uit een andere datasheet (ook als getal ingesteld) en plaatst deze in een textbox.

De VBA onder de CommandButton van de Usfer form is : Range("T" & (ActiveCell.Row)).Value = Sheets("Locatiekiezer").Range("F7")

Getal dat het is kleins is maar zie het zelf niet.
Mogen jullie nog meer info nodig hebben dan hoor ik graag.

Alvast bedankt voor de moeite

Bas

 

[edmoor]

Je hebt geen voorbeeld document geplaatst.
Probeer dit eens:

= CLng(Sheets("Locatiekiezer").Range("F7") .Value)

 

[lam201]

je schrijft eerst dat 't getal wordt weggeschreven in een textbox.

als dat zo is, probeer dan dit eens

Range("T" & (ActiveCell.Row)).Value = Me.TextBox1 * 1

 

[snb]

Wat heeft dit met een UF te maken ?

Range("T" & (ActiveCell.Row)).Value = Sheets("Locatiekiezer").Range("F7")

 

[BasNL]

je schrijft eerst dat 't getal wordt weggeschreven in een textbox.

als dat zo is, probeer dan dit eens

Range("T" & (ActiveCell.Row)).Value = Me.TextBox1 * 1

Dank je Lam2021, dit heeft probleem opgelost!