• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

uitbreiden van een "vol" array

Status
Niet open voor verdere reacties.

jansm

Gebruiker
Lid geworden
2 apr 2014
Berichten
421
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

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

Bijlagen

Code:
Sub M_snb()
   with  Sheets("Data").cells(1).CurrentRegion
     sn=.resize(.rows.count+5,.columns.count+10)
   end with
End Sub
 
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
 
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.

Code:
arr2 = Application.Index(arr, [row(1:15)], Array(2, 4, 6))
 
Laatst bewerkt:
Code:
arr2 = Application.Index(arr, evaluate("row(1:" & ubound(arr) & ")"), Array(2, 4, 6))
 
Dank HSV, uiteindelijk gelukt na aanpassing UBound(arr, 1)
 
De komma + 1 is gelijk aan het weglaten wat ik doe dus overbodig.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan