Inputbox als tekst

[stefano]

    Range("A" & LastRow + 1) = InputBox("Geef het artikelnummer in", "Nieuw artikel", "")

Hoe kan ik het resultaat van deze input naar tekst omzetten ?

dank!

 

[gast0660]

Bedoel je dit?

Sub dotch()
Range("A" & LastRow + 1) = InputBox("Geef het artikelnummer in", "Nieuw artikel", "")
Range("A" & LastRow + 1).Cells.NumberFormat = "@"
End Sub

 

[sylvester-ponte]

als je je voorloop nullen niet kwijt wil dan moet je
Range("A" & LastRow + 1).Cells.NumberFormat = "@"
voor
Range("A" & LastRow + 1) = InputBox("Geef het artikelnummer in", "Nieuw artikel", "")
zetten

 

[stefano]

Ja bijna, het werkt niet, maar als ik de 2 lijnen wissel dan komt het goed.

dank !

 

[edmoor]

Of;

Range("A" & LastRow + 1) = "'" & InputBox("Geef het artikelnummer in", "Nieuw artikel", "")

 

[stefano]

Dank je wel Ed!