Kopieren naar cel met speciale opmaak

[Oude leerling]

Geacht forum ,
Op Blad1 staat in A1 een getal b.v. 2
Dit getal wil ik kopiëren naar een aantal cellen op blad2 welke cellen een speciale opmaak hebben
De opmaak is "Partij-" , zodat na het kopieren er Partij-2 komt te staan.
Ik had gedacht met onderstaande code , maar dat lukt niet.
Er komt in die cellen van Blad2 gewoon een 2 te staan.
Wat moet de code nou wel zijn??

Sub Macro1()
Range("A1").Copy
Sheets("Blad2").Range("A1,A2").PasteSpecial Paste:=xlPasteValues
End Sub

Vriendelijke groet Jaap

 

[edmoor]

Dit werkt hier prima:

Sub Macro1()
    Sheets("Blad2").Range("A1") = Sheets("Blad1").Range("A1")
End Sub

Anders een voorbeeld documentje.

De opmaak moet uiteraard dit zijn:
"Partij-"#

 

[Oude leerling]

Hierbij het bestandje.
Als ik naar Blad2 ga en er een cijfer invul doet hij het wel maar niet met de code

 

[edmoor]

Je hebt de opmaak ook niet zoals ik aangaf.

 

[Oude leerling]

Had ik over het hoofd gezien.
Het werkt nu wel.
Bedankt , Jaap