Clever-Excel-Forum

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

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.

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:
[attachment=21593]

Gruß Ralf

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

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 ???

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

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 

Genau das. Perfekt.
Danke Euch.

Nyn007

Klaus-Dieter

RPP63

Sulprobil

Nyn007

Kuwer

Flotter Feger

Nyn007