Mehrdimensionale nicht gleichmäßige Arrays dynamisch erweitern

[Nyn007]

Ha((o an alle Profis.

Ich habe eine echt knifflige Aufgabe.
Ich erstelle ein zweidimensionales Array. Aber die Anzahl der Elemente im Array variiert. Bsp. wie es aussieht:

Code:

Dim testarray

testarray = Array(Array(1, 2, 3), Array(4, 5), Array(6, 7, 8, 9))

Das ist soweit wunderbar. Ich habe nur die Anzahl der 2. Arraylevels, die ich auch benötige. Jetzt möchte ich ein neues 2. Arraylevel hinzufügen und die alten Werte müssen stehen bleiben. Bsp.: Array(10,11,12,13,14).

Hat jemand eine Idee, wie ich es anstellen kann, ohne daß ich keine unnötigen Variablen oder Arrayelemente dimensionieren muss?

Einen halben Ansatz hätte ich mit:

Code:

Sub test()

Dim testarray
Dim test1
Dim test2
Dim test3
Dim test4

test1 = Array(1, 2, 3)
test2 = Array(4, 5)
test3 = Array(6, 7, 8, 9)
test4 = Array(10, 11, 12, 13, 14)

testarray = Array(test1, test2, test3, test4)

End Sub

Aber hier muss ich vorher genau wissen wieviel 2.Arraylevel es genau geben wird. Das weiß ich aber nicht.

Würde mich über eine smarte tolle Lösung freuen.

Nyn007

[Klaus-Dieter]

Hallo,

ich wüsste nicht, wann ich mal ein Array mit mehr als zwei Dimensionen gebraucht hätte. Am besten beschreibst du mal, was du machen willst, ich fürchte du bist da irgendwie auf dem Holzweg.

[RPP63]

Moin!
@Klaus-Dieter:
Der Code des TE erzeugt ein 2-dimensionales Array!

@Nyn:
Ich habe Dich auch nicht richtig verstanden!
Folgendes meinst Du wohl nicht?

Code:

Sub x()
Dim testarray

testarray = Array(Array(1, 2, 3), Array(4, 5), Array(6, 7, 8, 9))
testarray = Array(testarray, Array(10, 11, 12, 13, 14))
End Sub

Ergibt folgende Array-Inhalte:
   

Gruß Ralf

[Sulprobil]

Hallo,

Wenn ich Dich richtig verstehe, willst Du wahrscheinlich so etwas machen wie ich bei Pfreq:
http://sulprobil.com/Get_it_done/IT/Exce...pfreq.html

Viele Grüße,
Bernd P

[Nyn007]

Ja. Die Erklärung ist nicht einfach. Ich versuche es nochmal. Am besten anhand von erwarteten Ergebnissen.
[
Bild bitte so als Datei hochladen: Klick mich!
]

D.h. das hinzugefügte Array wird auf die gleiche Ebene gesetzt, wie die Arrays der 2.Ebene davor.
Besser ???

[Kuwer]

Hallo,

meinst Du so?

Sub test()

Dim testarray
Dim test1
Dim test2
Dim test3
Dim test4

test1 = Array(1, 2, 3)
test2 = Array(4, 5)
test3 = Array(6, 7, 8, 9)
test4 = Array(10, 11, 12, 13, 14)

testarray = Array(test1, test2, test3)
ReDim Preserve testarray(3)
testarray(3) = test4
End Sub

Gruß Uwe

[Flotter Feger]

Hallo,

ich mische zwar nur ungern ein, aber eventuell meinst du es so ... und es wird dabei nur ein 1-dimensionales Array erzeugt.
Siehe den Fehler in der letzten Codezeile.

PHP-Code:

Sub test()

Dim testarray As Variant
Dim ar As Long

ReDim test(1 To 3)

test(1) = Array(1, 2, 3)
test(2) = Array(4, 5)
test(3) = Array(6, 7, 8, 9)

ar = UBound(test) + 1

ReDim Preserve test(1 To ar)
test(ar) = Array(10, 11, 12, 13, 14)

testarray = test()

MsgBox UBound(testarray, 1)
MsgBox UBound(testarray, 2) 
End Sub 


[Nyn007]

Genau das. Perfekt.
Danke Euch.