Array, Index außerhalb gültigem Bereich

Dim ai As Integer Dim RecZeilen As Integer Dim RecSpalten As Integer ai = 0 RecZeilen = 0 RecSpalten = 3 ReDim RecArray(RecZeilen, RecSpalten) Do While Not Rec.EOF And Not Rec.BOF ReDim Preserve RecArray(RecZeilen, RecSpalten) For spalte = 0 To RecSpalten RecArray(RecZeilen, spalte) = ai ' Debug.Print Rec.Fields(0) Rec.MoveNext If Rec.EOF Then Exit Do End If ai = ai + 1 Next RecZeilen = RecZeilen + 1 Loop

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
beachte, dass du in einem mehrdimensionalen Array mit Redim Preserve immer nur die letzte Dimension verändern darfst und alle anderen unverändert bleiben müssen.
ich vermute mal, dass es daran liegt, das auch mehrdimensionale Arrays inter im Speicher eindimensional abgelegt werden und die Werte an bestimmten Stellen stehen.
bei einer Erweiterung der letzten Dimension reicht es dann aus, weiteren Speicherplatz für das Array frei zu geben, würde auch eine andere Dimension verändert, müssten die bereits vorhandenen Daten alle umstrukturiert und auf neue Plätze innerhalb des Speichers verschoben werden.
kannst du dir im Prinzip so vorstellen:
du hast einen Zollstock, der 1m lang ist und aus 10 Segmenten a 10 cm besteht.
jetzt willst du den Zollstock auf 1,2 m vergrößern. 2 weitere Segmente a 10 cm hinten dran zu hängen ist relativ einfach, jedes der bestehnden 10 Segmente von 10 auf 12 cm zu vergrößern erfordert einen erheblichen aufwand, da ist es einfacher, dann den Zollstock gleich neu aufzubauen.
Gruß Daniel

Sub Array_befüllen() Dim ai As Integer Dim i As Long Dim j As Long ReDim RecArray(rec.RecordCount, rec.Fields.Count) For i = LBound(RecArray, 1) To UBound(RecArray, 1) For j = LBound(RecArray, 2) To UBound(RecArray, 2) RecArray(i, j) = ai ai = ai + 1 Next Next End Sub

Debug.Print "Block 1" Debug.Print RecArray(0, 0) Debug.Print RecArray(1, 0) Debug.Print RecArray(2, 0) Debug.Print RecArray(3, 0) Debug.Print "Block 2" Debug.Print RecArray(0, 1) Debug.Print RecArray(1, 1) Debug.Print RecArray(2, 1) Debug.Print RecArray(3, 1)

Sub Array_befüllen() Dim ai As Integer Dim i As Long Dim j As Long Dim RecArray() ReDim RecArray(3, 3) For i = LBound(RecArray, 1) To UBound(RecArray, 1) For j = LBound(RecArray, 2) To UBound(RecArray, 2) RecArray(i, j) = ai ai = ai + 1 Next Next Debug.Print String(40, "-") Debug.Print "Original" For i = LBound(RecArray, 1) To UBound(RecArray, 1) For j = LBound(RecArray, 2) To UBound(RecArray, 2) Debug.Print i; j; RecArray(i, j) Next Next Debug.Print String(40, "-") Debug.Print "invertierte Zugriff" For i = LBound(RecArray, 1) To UBound(RecArray, 1) For j = LBound(RecArray, 2) To UBound(RecArray, 2) Debug.Print i; j; RecArray(j, i) 'hier ist die Unterschied versteckt! Next Next Debug.Print String(40, "-") Debug.Print "Transponiert" RecArray = WorksheetFunction.Transpose(RecArray) For i = LBound(RecArray, 1) To UBound(RecArray, 1) For j = LBound(RecArray, 2) To UBound(RecArray, 2) Debug.Print i; j; RecArray(i, j) Next Next End Sub

Hi,
ich bin auf meinen ursprünglichen Code zurückgesprungen. Trotz aller Bemühungen von Yal verstehe ich nur hier was passiert.
Hier das Ergebnis, falls mal einer sucht:


Dim RecZeilen As Integer
Dim RecSpalten As Integer
RecZeilen = 3
RecSpalten = 0
ReDim RecArray(RecZeilen, RecSpalten)
Do While Not Rec.EOF
ReDim Preserve RecArray(RecZeilen, RecSpalten)
For zeile = 0 To RecZeilen
RecArray(zeile, RecSpalten) = Rec.Fields(0)
Rec.MoveNext
Next
RecSpalten = RecSpalten + 1
Loop

... und diese Abfrage -der Übersicht wegen ohne schleifen-


Debug.Print "Block 1"
Debug.Print RecArray(0, 0)
Debug.Print RecArray(1, 0)
Debug.Print RecArray(2, 0)
Debug.Print RecArray(3, 0)
Debug.Print "Block 2"
Debug.Print RecArray(0, 1)
Debug.Print RecArray(1, 1)
Debug.Print RecArray(2, 1)
Debug.Print RecArray(3, 1)
Debug.Print "Block 3"
Debug.Print RecArray(0, 2)
Debug.Print RecArray(1, 2)
Debug.Print RecArray(2, 2)
Debug.Print RecArray(3, 2)
Debug.Print "Block 4"
Debug.Print RecArray(0, 3)
Debug.Print RecArray(1, 3)
Debug.Print RecArray(2, 3)
Debug.Print RecArray(3, 3)

bringt dieses Ergebnis:


Block 1
502801,870637999
558,668745153333
295,858294
816,4611
Block 2
495013,712937
550,015236596666
321,177255
807,741026
Block 3
496067,869488
551,186521653333
327,102195
782,016924
Block 4
493896,826824
548,774252026667
343,82803
774,825923

genau die Form, die ich brauche, hier jeweils:


Block X
Gesamtzahl seit Zählerstart
Mittelwert
Kleinstwert
Größtwert

Nochmal dank an alle Helfer!

Beliebteste Forumthreads (12 Monate)

Array, Index außerhalb gültigem Bereich

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread