ReDim Problem mit UBound in zweidim. Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino,
danke für die Syntax.
Aber ich bekomme die Re Dimensionierung im Code immer noch nicht korrekt hin. Es müßte eigentlich laufen. Kannst Du den Fehler erkennen?
Dank und Gruß, Andreas


Sub SubTotalsAuslesen_Array_2()
Dim pvTable As PivotTable
Dim iCounter As Long
Dim SubTotalElement As Variant
Dim SubTotalArr()
Set pvTable = ActiveSheet.PivotTables(1)
ReDim SubTotalArr(1 To 2, 0 To 0)                 'muß ich ein Array Initial dimensionieren?
For Each pvField In pvTable.RowFields
iCounter = 0
For Each SubTotalElement In pvField.Subtotals
iCounter = iCounter + 1
If SubTotalElement = True Then
ReDim Preserve SubTotalArr(1 To 2, 1 To (UBound(SubTotalArr, 2) + 1))    'hier  _
kommt der Debugger
SubTotalArr(1, UBound(SubTotalArr)) = pvField.Caption
End If
Next
Next
Debug.Print "final ubound:"; UBound(SubTotalArr, 2)
For i = 1 To UBound(SubTotalArr, 2)   'auch hier soll nur auf die Ubound Spalte des Arrays  _
referenziert werden, wenn nur einmal SubTotals ausgelesen wurden.
Debug.Print i; "Field:"; SubTotalArr(1, i), "SubT:"; SubTotalArr(2, i)
Next i
End Sub

Hallo Daniel,
vielen Dank. Jetzt hat es geklingelt... Entschuldige bitte die Nicht Verwendung von Option Explicit. Das ist in dem Beispiel passiert, ansonsten weiß ich diese Option schon zu schätzen. Das mit der ersten auskommentieren ReDim Anweisung geht klar. Die muß drin sein.
Das die Erst- und Rediomensionierung übereinstimmen müssen, war mein Fehler. Nun läuft es.
Eine kleine Frage noch:
Die Erstdimensionierung erfolgt mit ReDim myArr(1 to 2, 1 to 1). In der anschließend folgenden Redimensionierung schreibe ich bisher ReDim Preserve myArr(1 to 2, 1 to n). Also nur die Spalten werden neu dimensioniert, geht ja auch nicht anders. Muß ich die Zeilendimension (1 to 2) auch in der Redimensionierung immer wieder hinschreiben oder kann ich das überspringen/ weglassen. a la: ReDim Preserve myArr(, 1 to n). Einfaches weglassen führte zum Debugger. Gibt es eine spezielle Syntax, falls es geht?
Rein interesse- und verständnishalber.
Dir vielen Dank für den entscheidenden Hinweis. Habe noch einen schönen Abend!
Grüße, Andreas

Sub test1() Dim meArea() 'Area Dimensionieren, sechs Zeilen u. eine Spalte 'Area 1. Zeile bzw Spalte hat den Index ist 0 ;-) Redim meArea(5, 0) Debug.Print Ubound(meArea, 1), Ubound(meArea, 2) 'Area neu Dimensionieren mit sechs Spalten Redim Preserve meArea(5, 5) Debug.Print Ubound(meArea, 1), Ubound(meArea, 2) 'oder Redim Preserve meArea(Ubound(meArea, 1), 5) Debug.Print Ubound(meArea, 1), Ubound(meArea, 2) 'oder Redim Preserve meArea(5, Ubound(meArea, 2) + 5) Debug.Print Ubound(meArea, 1), Ubound(meArea, 2) End Sub

Beliebteste Forumthreads (12 Monate)

ReDim Problem mit UBound in zweidim. Array

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ReDim Problem mit UBound in zweidim. Array

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread