Veld kopiëren en plakken op geslecteerde cel

[pcfil]

Hallo

Ik heb een kleine macro opgenomen waarin je een veld kan kopiëren naar een andere plaats. Dit lukt, maar dat werkt enkel op de plaats die ingesteld is in de macro.

In het voorbeeld is dat op Range A5.

De bedoeling is dat ik het veld iedere keer exact plaats op de cel die ik selecteer binnen het document.

Misschien is het heel simpel maar mijn kennis over VBA is nul. Kan iemand me helpen?

Alvast bedankt.

Sub test()
'
' test Macro
'
' Sneltoets: Ctrl+y
'
    Range("A1:C3").Select
    Selection.Copy
    Range("A5").Select
    ActiveSheet.Paste
End Sub

http://www.pcfil.be/UPLOADS/test.xlsm

 

[Cobbe]

Deze zal dat voor u doen:

Sub test()
'
' test Macro
'
' Sneltoets: Ctrl+y
'
    Range("A1:C3").Copy Destination:=ActiveCell
    
End Sub

 

[pcfil]

Bedankt.