Code werkt niet

[Roma]

beste,
Onderstaande code werkt niet. Wat staat er fout?

Sub Verplaatsen3()
blad = ActiveSheet.Name
Worksheets("Blad1").Range("b5,C5,d5,e5") = Worksheets("Blad2").Range("C20,d20,f20,h20")
MsgBox "Klaar!!"
End Sub

 

[snb]

Les 1 in Excel: Wat betekent Range("B5:E5")

 

[Roma]

weet ik is het zelfde

 

[snb]

Waarom gebruik je dat dan niet ?

Vervolgens:
Wat is het verschil tussen Range("C20:H20") en Range("C20,d20,f20,h20") ?

 

[Roma]

God ik wist niet dat ik bij jou op cursus zat.

 

[HSV]

with sheets("blad2")
sheets("blad1").range("b5:e5") = array(.range("c20"), .range("d20"), .range("f20"), .range("h20"))
end with

 

[snb]

@HSV

die punt voor array mag ook wel weg ....

 

[HSV]

Dan doet de code het vast beter.
Bedankt voor je oplettendheid.

 

[Roma]

Beste Harry,
Ondanks dat ik deze topic als opgelost gezet heb kom je met een fantastische oplossing.
Bedankt.:thumb:
Ron