Redim Preserve
07.12.2005 18:42:34
Ralf
ein zweidimensionales Array aus 400 Zeilen und 8 Spalten möchte ich nach der Auffüllung passend verkleinern. Dabei sind 400 Zeilen die höchstmögliche Zahl, während die 8 Spalten immer bei jeder Zeile konstant sind. Ich weiss also im voraus nicht die genaue Zeilenzahl und definiere das Array zu groß.
Während der Füllung läuft ein Zähler mit, so daß die tatsächliche Zeilenzahl vorliegt:
Dim Ar2Dim(400, 8) As Variant: j = 0
For Each titel In Liste '(gibt noch einige Bedingungen, die jeder Titel erfüllen muss)
Ar2Dim(j, 1) = Var1
Ar2Dim(j, 2) = Var2
Ar2Dim(j, 3) = Var3
Ar2Dim(j, 4) = Var4
Ar2Dim(j, 5) = Var5
Ar2Dim(j, 6) = Var6
Ar2Dim(j, 7) = Var7
Ar2Dim(j, 8) = Var8
j = j + 1
Next
Über j habe ich jetzt die tatsächliche Belegung/Zeilenzahl, wenn ich jetzt ReDim Preserve Ar2Dim(j, 8) sage, bekomme ich nur die Fehlermeldung, das Datenfeld wäre bereits dimensioniert.
Bin für jeden Tip dankbar.
Grüße
Ralf