Waarden kopieren in VBA maar met TEKST

[koningbor]

Beste Excel/VBA Wonders,

Ik heb een vraag omtrent het kopieren in VBA. ik gebruik de volgende code:
Sheets("Blad1").Range("AH2:AH5000").Copy Destination:=Sheets("Blad2").Range("A2:A5001")
Dit doet zijn werk goed, maar nu moet er, VOOR de waarden van Blad1 die gekopieerd worden automatisch: "PO-" voor komen.

nu dacht ik slim te zijn en dit te proberen:
Sheets("Blad1").Range("AH2:AH5000").Copy Destination:="PO-" & Sheets("Blad2").Range("A2:A5001")
Maar dit werkt niet. (is dit wel mogelijk met deze code?)

Dit is een standaard sheet (Blad1) die opgestuurd wordt door onze leverancier, dus ik wil hier verder niks aan veranderen, zodat ik zo min mogelijk hoef te doen als dit binnenkomt.
Weet iemand hier de goede code van? ik heb office 365.

mvg
Bor

 

[edmoor]

Zo bijvoorbeeld:

Application.ScreenUpdating = False
For Each cl In Sheets("Blad1").Range("AH2:AH5001")
    Sheets("Blad2").Cells(cl.Row - 1, "A") = "PO-" & cl.Value
Next cl
Application.ScreenUpdating = True

 

[HSV]

Of:

Sub hsv()
 [blad2!a2:a5001] = [if(blad1!a1:a5000<>"","PO-"&index(blad1!a1:a5000,),"")]
End Sub

 

[edmoor]

Beter :thumb:

 

[koningbor]

thx boys!
Opgelost!

 

[snb]

Het kan nog erger:

Sub hsv_snb()
 [blad2!a2:a5001] = [if(blad1!a1:a5000<>"","PO-"&blad1!a1:a5000,"")]
End Sub