Array

[AD1957]

Beste Forumleden,

Met onderstaande code probeer ik P1 t/m P10 te plakken in C15:C24
Wat doe ik hier fout?

Private Sub CommandButton2_Click()


Range("C15").Resize(10) = Array([p1].Value, [p2].Value, [p3].Value, [p4].Value, [p5].Value, _
[p6].Value, [p7].Value, [p8].Value, [p9].Value, [p10].Value)


End Sub

 

[VenA]

Sheets("Blad") bestaat niet. Verder klopt de code niet met de vraag en kan veel eenvoudiger.

 

[JEC.]

Je zegt sheet("Blad"). Dat moet ("Blad1") zijn.

Gr.
JIm

 

[edmoor]

Dit zou volgens je beschrijving voldoende moeten zijn:

Range("C15:C24") = Range("P1:P10").Value

 

[AD1957]

excuus fout voorbeeldbstandje

Edmoor: Ik probeer het werken met array onder de knie te krijgen.

 

[edmoor]

Dan kan je beter hier beginnen:
http://www.snb-vba.eu/VBA_Arrays.html

Voor horizontaal naar verticaal en vice versa kan je Application.Transpose gebruiken:
https://docs.microsoft.com/en-us/office/vba/api/excel.worksheetfunction.transpose

 

[AD1957]

Bedankt, hier kan ik verder mee:thumb: