Hoe voeg ik via vba een nieuwe waarde toe aan een array?

Om een nieuwe waarde aan een bestaande array toe te voegen, heb je een dynamische array nodig om de elementen ervan opnieuw te definiëren, en als je dat doet, moet je de waarden van de oude elementen behouden. Hierdoor kunt u alleen de waarde toevoegen aan het nieuwe element dat u definieert, terwijl de rest van het onderdeel intact blijft.

Hieronder heb je een array waarin je twee elementen hebt gedefinieerd. Omdat dit een dynamische array is, heb je een “ReDim”-instructie om twee elementen te definiëren en vervolgens waarden aan die elementen toe te voegen.

We zullen dan een derde element aan deze array toevoegen.

Voeg een nieuwe waarde toe aan een array in VBA

1. Eerst moet u de instructie “ReDim” gebruiken met het trefwoord “Preserve” om beide elementen te behouden, inclusief het nieuwe element waarvoor u de waarde wilt toevoegen.
2. Vervolgens moet u de elementen definiëren die u in de array wilt hebben. Hier heb je drie elementen nodig, daarom gebruiken we hiervoor 1 tot 3.
3. Daarna moet u waarde toevoegen aan het derde element, het nieuwe element dat u definieert.
4. Gebruik aan het einde debug.print om alle items met de nieuwe items in het directe venster te krijgen.

 Option Explicit Option Base 1 Sub vba_array_add_value() Dim myArray() As Variant ReDim myArray(2) myArray(1) = 5 myArray(2) = 10 ReDim Preserve myArray(1 To 3) myArray(3) = 15 Debug.Print myArray(1) Debug.Print myArray(2) Debug.Print myArray(3) End Sub

Ik wil nog een paar woorden met u delen.

• U moet een array in het begin als een dynamische array declareren als u weet dat u later meer waarde aan de array in de code moet toevoegen.
• Met deze methode kun je alleen een nieuw element aan het einde van de array toevoegen.