Array-Redimensionierung ohne Datenverlust in VBA?

Hallo,

ich habe mir unter Excel in VBA ein Makro gebastelt, das eine Textdatei einliest und dann nach bestimmten Ausdrücken sucht. Wenn so ein Ausdruck auftaucht, werden aus der darauffolgenden Zeile bestimmte Textteile ausgeschnitten und in einem Array abgelegt. Die Anzahl der Ausdrücke, die in der Datei auftauchen ist unterschiedlich, daher lasse ich jetzt erstmal zählen, wie häufig der Ausdruck auftaucht, Dimensioniere dann das Array und lasse dann wieder nach dem Ausdruck suchen und die Daten dann in das Array eintragen. Das ist recht umständlich wie ich finde. Gibt es eine Möglichkeit ein Array zu erweitern ohne dass die schon vorhandenen Daten im Array verloren gehen?

Alex

Hi

Entweder du benutzt verkettete Listen oder du legst einen größeren Array an und kopierst die Daten aus dem alten Array da rein. Dafür sollte es Systemfunktionen geben.

Gruß, Michael

Hallo,
dafür gibt es
...
Dim MeinArray()
xx = 4711
...
Redim Preserve MeinArray(1 To xx)-> oder 0 To xx
...
Redim Preserve MeinArray(1 To xx + 1)-> oder 0 To xx + 1
...

Grüße, Andre

Hallo Andre,

genau danach habe ich gesucht!!

Vielen Dank

Gruß Alex