uitbreiden van een "vol" array

[jansm]

Hallo,
In onderstaand voorbeeld wil ik een bestaand en gevuld array uitbreiden met 10 kolommen en 5 regels. Is dat mogelijk en zo ja kan iemand voor mij de code dan aanvullen (met behoud van de bestaande elementen.
Mvg, js

Sub Test()
Dim arr As Variant
arr = Sheets("Data").Range("A1").CurrentRegion
'Hier array arr uitbreiden met 10 kolommen en 5 rijen
End Sub

 

[snb]

Sub M_snb()
   with  Sheets("Data").cells(1).CurrentRegion
     sn=.resize(.rows.count+5,.columns.count+10)
   end with
End Sub

 

[jansm]

Dank je snb

 

[jansm]

Goedemiddag,
kunnen in het array-voorbeeld ook kolommen/rijen verwijderd worden? Bijvoorbeeld kolom B, F en G. Rij 5, 10 en 11. Kan iemand helpen? Bijv dank

 

[snb]

Kijk eens hier: https://www.snb-vba.eu/VBA_Arrays.html#L_6.0.4.1

 

[jansm]

Dank snb,
als ik nu alle rijen van het array wil meenemen, hoe ziet de regel er dan uit? Kan [row(1:15)] dan vervangen worden door een variabele? Trouwens geweldige site, maar voor mij als leek nog veel vraagtekens.

arr2 = Application.Index(arr, [row(1:15)], Array(2, 4, 6))

 

[HSV]

arr2 = Application.Index(arr, evaluate("row(1:" & ubound(arr) & ")"), Array(2, 4, 6))

 

[jansm]

Dank HSV, uiteindelijk gelukt na aanpassing UBound(arr, 1)

 

[HSV]

De komma + 1 is gelijk aan het weglaten wat ik doe dus overbodig.

 

[jansm]

Je hebt gelijk!