Meerdere "losse" kolommen naar 1 array

[Scripter]

Ooit ergens gelezen dat je meerdere "losse" kolommen in 1 keer op kan nemen in een (2d) array.
Het was een oplossing waarbij je simpelweg de kolomnummers op kon geven.
Nu dat ik het nodig heb, nergens meer te vinden...

Stel dat ik vanaf

range("A1:D3")

alleen de kolommen B en D op wil nemen:

Werkblad ziet er zo uit (voorbeeld uiteraard)
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3

Dan zou mijn array er zo uit moeten zien:
B1 D1
B2 D2
B3 D3

Arr = range("A1:D3")

geeft de hele range. Volgens mij was het iets als

Arr = range("A1:D3",2,4)

of

Arr = range("A1:D3"),2,4

maar dat werkt niet.
Heeft iemand een idee?

 

[snb]

het simpelst is natuurlijk

sn=sheet1.cells(1).currentregion

 

[gast0660]

Hoi
Ik snap uw vraag totaal niet
maar volgens deze:

Werkblad ziet er zo uit (voorbeeld uiteraard)
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3

Dan zou mijn array er zo uit moeten zien:
B1 D1
B2 D2
B3 D3

Kan je hier iets mee?
Groet

 

[Scripter]

Het gaat er om dat ik een aantal specifieke en niet aangrenzende kolommen uit een range naar een array wil zetten.

dus waar .currentregion alle kolommen (A t/m D) in de array zet, wil ik alleen de kolommen B en D in de array.

 

[Scripter]

Toch nog ergens gevonden. Dit is wat ik zocht:

Dim vArr As Variant, vRows As Variant
Dim lLastRow As Long

lLastRow = 3
vRows = Evaluate("row(1:" & lLastRow & ")")
 
vArr = Application.Index(Columns("A:D"), vRows, Array(2, 4))