VBA cijfers als tekst schrijven

[rolfhilhorst]

Hallo, ik hoop dat iemand mij kan helpen met het volgende,
Met onderstaande code schrijf ik het getal 34 in een bepaalde range.

Sheets("AAA").Range("L" & Q & ":" & "L" & Q + x - 1).Value = "34"

Graag zou ik het getal "34" als tekst wegschrijven en dat heb ik met onderstaande code geprobeerd te realiseren.
Helaas lukt dit niet met deze code...

Sheets("AAA").Range("L" & Q & ":" & "L" & Q + x - 1).Value = Format("34", "@")

Zou iemand mij kunnen helpen en vertellen wat ik verkeerd doe?
Groeten, Rolf

 

[Haije]

Rolf,

en als je de range waar de tekst komt eerst celopmaak "Tekst" meegeeft?

 

[rolfhilhorst]

Heb ik geprobeerd Haije, toch schrijft hij dit als integer met 2 cijfers achter de komma...

 

[rolfhilhorst]

Of bedoel je op de volgende wijze misschien?

Sheets("AAA").Range("D:D" & "H:H" & "L:L" & "P:P").Value = Format(Value, "@")

Helaas lukt dit ook niet, deze code is verkeerd. Wat kan ik daar aan veranderen?
Groeten, Rolf

 

[Haaren101]

Sheets("sheet1").Cells(2, 1).Value = Format("'34", "@")
Wordt links uitgelijnd in de cel weggeschreven zonder cijfers achter de komma


Sheets("sheet1").Cells(4, 1).Value = "'34"
Met cel eigenschap op tekst wordt het ook als tekst zonder cijfers achter de komma weggeschreven

Ron

 

[geep1980]

Het kan waarschijnlijk ook wel in 1x maar dit werkt in ieder geval:

Sheets("Sheet1").Range("J" & Q & ":" & "J" & Q + x - 1).NumberFormat = "@"
Sheets("Sheet1").Range("J" & Q & ":" & "J" & Q + x - 1).Value = "34"

 

[paulva]

Plaats er gewoon een enkel haakje voor '34 dus. Probeer maar eens =lengte(a1) in de cel ernaast... wordt twee (en niet drie).

 

[rolfhilhorst]

Ron, het werkt perfect nu!

Sheets("AAA").Range("L" & Q & ":" & "L" & Q + x - 1).Value = Format("'34", "@")

Haije bedankt voor uw hulp,
Ron, u bedankt voor het oplossen van mijn vraag.

Groeten Rolf

 

[rolfhilhorst]

Geep1980 bedankt voor uw toevoeging, werkt inderdaad ook perfect!
Paulva, handige informatie hiervoor ook bedankt.
Groeten, Rolf