Number stored as text problem

[Eggie]

Hallo,

ik heb een userform gemaakt, maar de aantallen die hierop worden ingevuld verschijnen op de sheet als text. Hierdoor worden de grafieken die hieraan gekoppeld zijn niet geupdate.

Kan iemand me vertellen hoe ik ervoor kan zorgen dat de aantallen als Number worden verwerkt, en niet als Text?

Thnx!!!!!!

Mvg,

Eggie

 

[Roncancio]

Hallo,

ik heb een userform gemaakt, maar de aantallen die hierop worden ingevuld verschijnen op de sheet als text. Hierdoor worden de grafieken die hieraan gekoppeld zijn niet geupdate.

Kan iemand me vertellen hoe ik ervoor kan zorgen dat de aantallen als Number worden verwerkt, en niet als Text?

Thnx!!!!!!

Mvg,

Eggie

Gebruik je wellicht Textbox1.Text ipv Textbox1.Value?

Een voorbeeld zou wel handig zijn.

Met vriendelijke groet,


Roncancio

 

[Eggie]

Roncancio,

bedankt voor je snelle reactie...

Voorbeeldbestand is beetje lastig, als het echt nodig is zal ik dat wel ff regelen..

Ik maak nu gebruik van de volgende code:

    Range("IV3").Select
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = TextBox1

Geen Text dus ...

Hoop dat je enig idee hebt hoe dit komt...

Bedankt Alvast! Mvg,

Eggie

 

[Roncancio]

Roncancio,

bedankt voor je snelle reactie...

Voorbeeldbestand is beetje lastig, als het echt nodig is zal ik dat wel ff regelen..

Ik maak nu gebruik van de volgende code:

    Range("IV3").Select
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = TextBox1

Geen Text dus ...

Hoop dat je enig idee hebt hoe dit komt...

Bedankt Alvast! Mvg,

Eggie

En als je het vette gedeelte eraan toevoegt:

Range("IV3").Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TextBox1.Value

Met vriendelijke groet,


Roncancio

 

[Eggie]

Bedankt,

dat was het inderdaad!

Mvg,

Eggie

 

[Wigi]

Range("IV3").End(xlToLeft).Offset(0, 1).Value = CDbl(TextBox1.Text)

Wigi