VBA versienummer als text naar cel

[raoulvo]

Hallo,

Ik ben bezig met een programma waarin ik een versienummer 1.1 in een textbox plaats. Als ik dit vervolgens in een cel zet, wordt er automatisch 1,1 van gemaakt. Hoe voorkom ik dit?

With Sheets("Meting")
.[H17].Value = TextBox7.Text
end with

is de code die ik nu gebruik.

B.v.d. Raoul

 

[edmoor]

Zet er '1.1 in.
Dus de 1.1 vooraf laten gaan door een enkele quote.
Excel zal het dan als tekst behandelen in plaats van als nummer.

With Sheets("Meting")
    .[H17].Value = "'" & TextBox7.Text
End With

 

[HSV]

Of:

[With Sheets("Meting")
 .[H17].Value = cvar(TextBox7)
 end with]

 

[raoulvo]

Het werkt! Dank je wel
Gr Raoul