Wie füge ich per vba einen neuen wert zu einem array hinzu?

Um einem vorhandenen Array einen neuen Wert hinzuzufügen, müssen Sie über ein dynamisches Array verfügen, um seine Elemente neu zu definieren. Dabei müssen Sie die Werte der alten Elemente beibehalten. Auf diese Weise können Sie nur den Wert zum neuen Element hinzufügen, das Sie definieren, und den Rest des Teils intakt lassen.

Unten sehen Sie ein Array, in dem Sie zwei Elemente definiert haben. Da es sich um ein dynamisches Array handelt, verfügen Sie über eine „ReDim“-Anweisung, um zwei Elemente zu definieren und diesen Elementen dann Werte hinzuzufügen.

dynamisches Array zum Neudefinieren von Elementen

Anschließend fügen wir diesem Array ein drittes Element hinzu.

Fügen Sie in VBA einen neuen Wert zu einem Array hinzu

  1. Zuerst müssen Sie die „ReDim“-Anweisung mit dem Schlüsselwort „Preserve“ verwenden, um beide Elemente beizubehalten, einschließlich des neuen Elements, für das Sie den Wert hinzufügen möchten.
  2. Als nächstes müssen Sie die Elemente definieren, die Sie im Array haben möchten. Hier müssen drei Elemente vorhanden sein, daher verwenden wir dafür 1 bis 3.
  3. Danach müssen Sie dem dritten Element, dem neuen Element, das Sie definiert haben, einen Wert hinzufügen.
  4. Verwenden Sie am Ende debug.print , um alle Elemente mit den neuen Elementen im unmittelbaren Fenster abzurufen.
 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

Lassen Sie mich noch ein paar Worte mit Ihnen teilen.

  • Sie sollten ein Array zu Beginn als dynamisches Array deklarieren, wenn Sie wissen, dass Sie dem Array später im Code mehr Wert hinzufügen müssen.
  • Mit dieser Methode können Sie nur am Ende des Arrays ein neues Element hinzufügen.

Einen Kommentar hinzufügen

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert