Kopieren met een knop

[Noord2011]

Hallo,

Ik heb een probleem waar ik niet uitkom.
Ik heb een Excel bestand waar in blad1 cel A1 een waarde staat en deze dient met een knop gekopieerd naar blad2 cel B2.

Is er een makkelijke code hiervoor?

 

[Hoornvan]

Noord25,

Het kan ook met een formule, zet deze in Blad2 in cel B2

=Blad1!A1

 

[Hoornvan]

Als je liever een knop gebruikt, zet deze macro onder die knop.
De knop wel op blad1 zetten.

Sub Verplaatsen()
    Range("A1").Copy
    Sheets("Blad2").Select
    Range("B2").Select
    ActiveSheet.Paste
End Sub

Ik weet dat het niet op prijs word gesteld om Select en Active te gebruiken.
Hoe zou ik het dan moeten doen, niet gelijk op niveau 7 a.u.b.

 

[Warme bakkertje]

Op niveau 1 dan
Mag in een gewone module

Sub Verplaatsen()
    [Blad1!A1].Copy Destination:=[Blad2!B2]
End Sub

Mvg

Rudi

 

[Hoornvan]

Warme bakkertje,

Bedankt voor de uitleg op niveau 1