arrays dynamisch erzeugen

[Christoph Ruhnke]

Hallo,

nein, ohne Redim geht das dynamisch nicht, aber welche Sorgen hast Du mit dem Redim eigentlich ? Gut, es tut der Systemperformance nicht unbedingt gut, einen Redim beispielsweise in einer Schleife ständig durchzuführen, aber mit ein bischen Verwaltungsaufwand kann man das schon machen.

Dim Data()
...
Redim Data(10) 'Erstmal 10 Felder reservieren
...
For I=1 To AnzahlSchleifenDurchläufe
...
If UBound(Data) < I Then Redim Preserve Data(I+10)
Data(I) = "Das ist Element " & I
...
Next

Wie Du siehst, wird hier das Array nur jedes 10. Mal redimensioniert.

MfG Christoph