Hallo, ich bins gleich nochmal!
Mir ist da jetzt gerade eine Idee gekommen!
Man könnte doch noch eine dritte Dimension mit einbinden, die dann sozusagen die "tabellen zählt"...
Für bessere Lösungen würde ich mich allerdings sehr freuen!!!
P.S. Warum kann den VBA nur immer die letzte Dimension dynamisch halten? Das schränkt doch sehr ein oder nicht?
Mfg fourii
fourii schrieb am 30.08.2008 13:47:11:
Hallo, einen schönen Samstag wünsch ich allen!
Ich bin auf der Suche nach einem bestimmten Array und hoff hier findet sich jemand, der mir helfen kann. Kommen wir zum Punkt:
Stellen Sie sich bitte ein 2 dimensionales, dynamisches Array vor, wobei die 1.Dimension(Spalten sozusagen) fix sind und die 2. Dimension(also die zeilen) dynamisch sind.
Stellen Sie sich nun bitte 50 "kleine" verschiedene 2-dimensionale Arrays vor, die sich alle Daten von dem "großen, rechten" array ziehen.
array_1(1, x).datum= raw_tabelle(1, q).datum
array_2(1, x).datum= raw_tabelle(1, q).datum
array_3(1, x).datum= raw_tabelle(1, q).datum
...
Meine Frage ist nun folgende:
Es muss doch eine Lösung geben, dass man ein idexiertes Array bildet oder?
Dabei würde ich mir ein Array gekoppelt mit einer Laufvariablen vorstellen, in etwa so:
for y= 1 to 50
array_ & y & (1,x).datum= raw_tabelle(1, q).datum
next y
Ich hoffe Sie haben verstanden was ich meine! Hoffe einer kann mir helfen, ich bin schon seit Wochen auf der Suche und am Verzweifeln...
Wens interessiert hier ein ausführlicheres Listing zu meinem Prob:
For q = 1 To zähler
Select Case raw_tabelle(2, q).zugriff
Case Is = zugriffsarten(1)
e_1 = e_1 + 1
Debug.Print raw_tabelle(1, q).datum
ReDim Preserve strukturiertes_array_1(4, e_1)
strukturiertes_array_1(1, e_1).datum _
= raw_tabelle(1, q).datum
strukturiertes_array_1(2, e_1).zugriff _
= raw_tabelle(2, q).zugriff
strukturiertes_array_1(3, e_1).anz _
= raw_tabelle(3, q).anz
strukturiertes_array_1(4, e_1).average _
= raw_tabelle(4, q).average
Case Is = zugriffsarten(2)
e_2 = e_2 + 1
ReDim Preserve strukturiertes_array_2(4, e_2)
strukturiertes_array_2(1, e_2).datum _
= raw_tabelle(1, q).datum
strukturiertes_array_2(2, e_2).zugriff _
= raw_tabelle(2, q).zugriff
strukturiertes_array_2(3, e_2).anz _
= raw_tabelle(3, q).anz
strukturiertes_array_2(4, e_2).average _
= raw_tabelle(4, q).average
Case Is = zugriffsarten(3)
e_3 = e_3 + 1
ReDim Preserve strukturiertes_array_3(4, e_3)
strukturiertes_array_3(1, e_3).datum _
= raw_tabelle(1, q).datum
strukturiertes_array_3(2, e_3).zugriff _
= raw_tabelle(2, q).zugriff
strukturiertes_array_3(3, e_3).anz _
= raw_tabelle(3, q).anz
strukturiertes_array_3(4, e_3).average _
= raw_tabelle(4, q).average
'und das ganze geht bis case is 50...
'leider gigantische tipparbeit :(
End Select
Next q |