Inhoud static array kopieren

[phgerritsen]

Beste experts,

Ik heb in Blad3 op basis van verschillende selecties 3 static arrays (18,18) gevuld met gegevens van Blad3.
Nu wil de inhoud van elk van deze arrays kopieren naar een vaste range (18,18) in Blad1.
Hoe doe ik dat?
Ik ben wel ervaren met Excel, maar een leek op het gebied van VBA.

vriendelijke groet,
PeterG

 

[AlexV]

Beste Peter,

Nee aan dat je de data vanaf A1 gevult wilt hebben.
Dit kun je doen door.

    For j = 0 To 17
        Range("A" & j + 1 & ":R" & j + 1).Value = MyArray(j)
    Next j

MyArray vervangen door je array variant.

Gr,
Alex,

 

[Interface]

het kan ook zo...

Als ik je goed begrijp is je array statisch, dus je heeft niet te lussen om de variabele dimensies of waarde te tellen.

With Sheets("Blad3")
    .Range("a1:s19") = myArray
End With

Deze code werkt bij mij niet:

   For j = 0 To 17
        Sheets(3).Cells(i + 1, j + 1)= myArray(i, j)
    Next j

als ik em zo uitvoer werkt het script wel:

For i = 0 To 18
    For j = 0 To 18
        Sheets(3).Range("A" & j + 1 & ":R" & j + 1).Value = myArray(i, j)
    Next j
Next i

Voor de snelheid maakt het weinig uit. Samen met een script om een array te vullen gaat
het script van mij in 0,015625

En die andere in 0,46875

 

[phgerritsen]

Beste Interface,

Mijn idee was ook om een tabel te vullen, die identiek is aan de outputtabel, zodat ik met een simpel statement de inhoud kan kopiëren.

Met jouw oplossing is er een constante verschuiving in het resultaat zichtbaar.
Weet jij hoe dat komt. Ik heb een voorbeeld programma bijgevoegd.

vriendelijke groet,
PeterG