Toewijzen van een Range aan een Array.

[MDN111]

Hallo!

Het lukt mij niet om een deftig inzicht te krijgen op het toewijzen van een Range aan een Array.

Deze code werkt. De betreffende Range van het Actieve Workbook staat netjes in de array:

Dim aa() As Variant
aa = Range("A1:B5")

Maar deze code werkt niet, alhoewel ik naar dezelfde Range verwijs. Run-time error "13" Type mismatch:

Dim aa() As Variant
aa = ThisWorkbook.Sheets(1).Range("A1:B5")

Als ik de property .Value toevoeg, werkt het wel:

Dim aa() As Variant
aa = ThisWorkbook.Sheets(1).Range("A1:B5").Value

Doch deze werkt ook, nu zonder toevoeging van de property .Value:

Dim oSh As Worksheet, aa() As Variant
Set oSh = ThisWorkbook.Sheets(1)
aa = oSh.Range("A1:B5")

Kan iemand mij daar een verklaring voor geven, a.u.b.

Grtz,
MDN111.

 

[VenA]

Iets declareren als variant is niet nodig en haal de () even weg

Dim aa
of Dim aa as variant

Zal wel werken.

 

[snb]

Zie

https://www.snb-vba.eu/VBA_Arrays.html#L_5.4.1

 

[MDN111]

Bedankt voor de reacties, maar het zijn in feite geen antwoorden op mijn vraag. Mijn vraag luidde niet "Hoe los ik het op?", want dat is het probleem niet.

Mijn vraag was "Wat is de verklaring?".

Na nog wat ettelijke zoektochten op het www denk ik hier een afdoende verklaring gevonden te hebben.

Grtz,
MDN111.
:thumb: