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