VBA-Beispiel 087
mail schreiben
mail schreiben

Array erweitern

Während der Laufzeit Array um ein Datenfeld erweitern
Option Explicit

Sub Array_erweitern()
Dim Arr_Stadt() As Variant
Dim x As Integer

Arr_Stadt = Array("Dortmund", "Hamburg", "Kassel")

For x = LBound(Arr_Stadt) To UBound(Arr_Stadt)
  MsgBox Arr_Stadt(x), , "3 Datenfelder"
Next x

'######################################################
'alte Datenfelder behalten und ein neues hinzufügen
ReDim Preserve Arr_Stadt(UBound(Arr_Stadt) + 1)
'dem gerade hizugefügten (und jetzt höchstem Datenfeld)
'einen Wert zuweisen
Arr_Stadt(UBound(Arr_Stadt)) = "Köln"
'######################################################

For x = LBound(Arr_Stadt) To UBound(Arr_Stadt)
  MsgBox Arr_Stadt(x), , "    - 4 -   Datenfelder"
Next x

Erase Arr_Stadt

End Sub

Download:   vba087.zip