Alle arraywaarden in een werkblad plaatsen

[Haije]

Hallo,

wat is de snelste manier om met VBA alle waarden uit een array in een werkblad te zetten?

m.b.v. een loop lukt dat wel, maar ik vraag me af of het niet snelle kan, b.v. alle records in één keer dumpen.

 

[jkpieterse]

Stel array heet v:

Range("A1").Resize(UBound(v,1)-LBound(v,1)+1, UBound(v,2)-LBound(v,2)+1).Value = v

 

[Haije]

Jan Karel,

omdat het een 1 dimensionaal array betreft heb ik er dit van gemaakt

Range("A2").Resize(UBound(v, 1) - LBound(v, 1)).Value = v

Het array is wel gevuld, maar er worden echter geen waarden geplaatst.



En er komen ook geen (fout)meldingen.

 

[Timshel]

Misschien zo:

Range("A2").Resize(UBound(v) + 1) = Application.Transpose(v)

 

[Haije]

Timshel,

TOP, dat doet het.

Bedankt Allebeide!