Opgelost Formule copy paste verkorten

[Egbert12345]

Hoi,

Ooit heb ik eens de oplossing gekregen over het verkorten van onderstaande formule, maar ben dat kwijt. Zie onderstaand, hoe kan ik die verkorten. Iets van (Range("B18").Copy.Range("E21").Paste), maar dit werkt niet.

groet egbert

Sub Macro1()
Range("B18").Select
Selection.Copy
Range("E21").Select
ActiveSheet.Paste
End Sub

 

[edmoor]

Zo?

Sub Macro1()
    Range("E21").Value = Range("B18").Value
End Sub

Die .Value mag eventueel ook nog weg.

 

[emields]

of zo

Sub Macro1()
  range("b18").copy range("e21")
end sub

 

[Egbert12345]

Bedankt

 

[AHulpje]

En misschien zou je in cel E21 de volgende formule kunnen gebruiken:

=B18