VBA Tekst schrijven naar Range

[rolfhilhorst]

Dag, kan iemand mij wellicht helpen?
Ik zou graag de tekst "34" in alle cellen van kolom D krijgen. De volgende code probeer ik hiervoor te gebruiken:

    Sheets("D").Range("A1" & ":" & "A" & x).Copy Destination:=Sheets("AAA").Range("A" & Q)
    Sheets("D").Range("C1" & ":" & "C" & x).Copy Destination:=Sheets("AAA").Range("B" & Q)
    Sheets("D").Range("Q1" & ":" & "Q" & x).Copy Destination:=Sheets("AAA").Range("C" & Q)
    Sheets("AAA").Range("D" & Q & ":" & "D" & Q + Q).Text = "34"

Q = de waarde van een bereik
Hij maakt netjes een kopie van alle bereiken die ik heb opgegeven, vervolgens hoeft hij in de kolom erachter alleen maar 34 te schrijven, hoe kan ik dit voor elkaar krijgen?

Ik hoop dat iemand me op weg kan helpen,
Groeten Rolf

 

[Roncancio]

Als het in alle cellen van kolom D moet:

Sheets("AAA").Range("D:D").Value = 34

Met vriendelijke groet,


Roncancio

 

[rolfhilhorst]

Wat fijn Roncancio, het werkt hiermee perfect.
Bedankt voor uw hulp,
Groeten Rolf