Vullen Array

[Stone52]

Hallo,

Ik zou graag een efficiente VBA-code willen hebben voor het vullen
van een array met gegevens uit een aantal cellen (zie voorbeeld).

De cellen A1 t/m B1, D1 en G1 t/m T1 wil ik voor verdere bewerking
in een array plaatsen.

Wie heeft een suggestie ?

 

[Finch]

Persoonlijk zou ik de hele range A1:T1 in een array plaatsen, en bij de verdere verwerking van de array de elementen die je wil behouden niet bewerken (bv. via een case structuur). Dit heeft als voordeel dat je achteraf deze array ook terug kan schrijven naar de range in 1 keer.

Code om de range A1:T1 in een array te plaatsen:

Dim rngTest As Range
Dim arrTest As Variant
Set rngTest = Range("A1:T1")
arrTest = rngTest

Je kan ook met 3 arrays werken, en elke deelrange in een aparte array schrijven. Op die manier kan je het terugschrijven naar de range ook makkelijk afhandelen, je weet immers welke array bij welke range hoort.
De code is dan gelijklopend aan bovenstaande, alleen moet je die voor elke niet-aaneengesloten range herhalen.

 

[Stone52]

Vullen Array en uitvragen Array

Finch,

Het is de bedoeling dat ieder van de oorspronkelijke cellen die nu in de array
staan ook afzonderlijk uitgevraagd kunnen worden.
Ondertussen heb ik daar wat mee getest maar kom er niet uit.

Met de inhoud van de array wil ik een ander werkblad -in een andere layout-
vullen (steeds de inhoud van kol A en B samen met kol G en H;
kol A en B met kol I en J, enz) zie Voorbeeld2

Het voorbeeld is een eenvoudige weergave van het werkelijke sheet.

 

[Finch]

Finch,

Het is de bedoeling dat ieder van de oorspronkelijke cellen die nu in de array
staan ook afzonderlijk uitgevraagd kunnen worden.
Ondertussen heb ik daar wat mee getest maar kom er niet uit.

Het uitvragen kan op deze manier bv. voor cel B1: arrTest(1, 2)

 

[Stone52]

Finch,


Afgelopen weekend heb ik eea uitgeprobeerd: ik ben eruit.

Dank voor je reacties.