VBA-Beispiel 085
mail schreiben
mail schreiben

statisches Array mit Inhalt füllen

Ein eindimensionales Array mit 3 Datenfelden.
Option Explicit
Option Base 1


Sub Array_statisch()

Dim Arr_Stadt(1 To 3) As String       '3 Datenfelder
'Dim Arr_Stadt(3) As String
Dim x As Integer

'den Datenfeldern Werte zuweisen
Arr_Stadt(1) = "Dortmund"
Arr_Stadt(2) = "Hamburg"
Arr_Stadt(3) = "Kassel"

'MsgBox Arr_Stadt(1)

'alle Einträge abfragen
For x = LBound(Arr_Stadt) To UBound(Arr_Stadt)
  MsgBox Arr_Stadt(x), , ""
Next x

Erase Arr_Stadt

End Sub

Download:   vba085.zip