| VBA-Beispiel 086 | |
|
|
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 |
|
relevante Links:
|
|
| |