makro om naar geselecteerde cel uit andere te plaatsen

[jong.braster]

Hallo,
Ik probeer om naar een geselecteerde cel (ActiveCell) de gegevens uit een andere (vaste cel AJ4) cel te kopieren.
Het gaat echter fout bij het plakken in de ActiveCell.
Wat doe ik fout?
Henk

Sub Macro1()
'
' Macro1 Macro
' kooppunt invoeren
'
' Sneltoets: Ctrl+t
'
    
    ActiveCell.Select
    Range("AJ4").Select
    Selection.Copy
    ActiveCell.Select
    ActiveSheet.Paste
    End Sub

 

[edmoor]

Dit is voldoende:

Activecell = Range("AJ4")

 

[HSV]

Dit is genoeg voor alleen de waarden.

sub macro 1
 activecell.value = range("Aj4").value
end sub

 

[zapatr]

Wat doe ik fout?

ActiveCell.Select [COLOR="#000080"]--> Je selecteert een cel, dat is op dat moment de activecell[/COLOR]
Range("AJ4").Select [COLOR="#000080"]--> Je selecteert AJ4, op dat moment wordt AJ4 de activecell[/COLOR]
Selection.Copy [COLOR="#000080"]--> Je kopieert AJ4[/COLOR]
ActiveCell.Select [COLOR="#000080"]--> Je selecteert AJ4[/COLOR]
ActiveSheet.Paste [COLOR="#000080"]--> je plakt AJ4 in AJ4[/COLOR]

 

[jong.braster]

Dank jullie wel, het werkt. Echter nog een aanvullende vraag.
De cel die gekopieerd wordt heeft een achtergrond kleur. Met andere woorden: kunnen ook de eigenschappen van de cel mee gekopieerd worden?

 

[edmoor]

Dat kan:

Activecell.Interior.Color = Range("AJ4").Interior.Color

En zo kan iedere eigenschap van in dit geval AJ4 ook aan de Activecell worden toegekend.

 

[HSV]

Maar als het allemaal teveel wordt, dan kopieer ik.

sub alles()
 range("aj4").copy activecell
end sub

 

[jong.braster]

Dank je allemaal, het is helemaal gelukt.