Microsoft Office Tutorials and References
In Depth Information
5.2.3 Dynamische Datenfelder
' Feld vergrößert, ohne Preserve
ReDim T(1 To 6)
Fori=4To6
T(i)=Rnd()*10+20
Next i
Fori=1To6
Cells(i, 6).Value = T(i)
Next i
' Feld vergrößert, mit Preserve
ReDim Preserve T(1 To 9)
Fori=7To9
T(i)=Rnd()*10+20
Next i
Fori=1To9
Cells(i, 7).Value = T(i)
Next i
End Sub
Das Ergebnis:
Abbildung 5.5
Dynamisches Datenfeld, zweimal verändert
Zur Erläuterung:
Das Feld T wird zunächst ohne Größenangabe deklariert.
Mit der ReDim -Anweisung wird es auf die Größe 3 festgelegt. Die drei
Elemente werden mit zufälligen Werten gefüllt und ausgegeben.
ReDim
Anschließend wird das Feld auf die Größe 6 vergrößert, ohne Pre-
serve . Die neu hinzugekommenen Elemente 4 bis 6 werden mit zufäl-
ligen Werten gefüllt. Das gesamte Feld wird ausgegeben. Man
erkennt, dass die Elemente 1 bis 3 ihren Wert verloren haben, sie
haben wieder den Wert 0.
Search JabSto ::




Custom Search