Range kopieren

[verluc]

Heeft iemand een voorbeeld van kopieren :

Voorbeeld:

Range: L4:L26 naar Range: B34:B56 maar alleen kopieren van de celinhoud en opmaak doch zonder formules

Met dank bij voorbaat

 

[HSV]

Misschien met zoiets?

Range("L4:L26").Copy
    Range("B34").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False

Edit: kopiëert helaas ook de formules.
(beginners probleem)

 

[verluc]

HSV, bedankt voor Uw opzet.
Macro werkt, doch de cellen waar een formule achter zit in de oorsprong worden in de kopie als #WAARDE weergegeven in plaats van het bedrag dat in oorsprong staat.
Misschien nog een kleine aanvulling hierop ?

 

[trucker10]

En wat als je het met deze doet

Sub tst ()
Range("B34:B56").Value = Range("L4:L26").Value
End Sub

?

 

[verluc]

Met deze code doet hij het wel, maar ik verlies de opmaak (kader rond de cel)
Misschien een aanvulling op deze code ?
Met dank.

 

[trucker10]

Die van mij en Harry tezamen

Sub tst()
    Range("B34:B56").Value = Range("L4:L26").Value
    Range("L4:L26").Copy
    Range("B34").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

 

[verluc]

Hi beiden,

Inderdaad, zoals het gezegde : "met twee weet men meer dan met één", lukt het inderdaad zoals gewenst.
Beide dank en goede nacht !!!