VBA-Beispiel 086
mail schreiben
mail schreiben

dynamisches, eindimensionales Array

dynamisches, eindimensionales Array anlegen
Option Explicit
Option Base 1

Sub Array_dynamisch()

'Array initialisieren aber Anzahl
'der Datenfelder erst später festlegen
Dim Arr_Stadt() As Variant
Dim x As Integer

'Werte zuweisen
Arr_Stadt = Array("Dortmund", "Hamburg", "Kassel")

'LBound = kleinste Index
'UBound = grösste Index
For x = LBound(Arr_Stadt) To UBound(Arr_Stadt)
  MsgBox Arr_Stadt(x), , ""
Next x

Erase Arr_Stadt  'Speicher freigeben

End Sub

Download:   vba086.zip