Pivot SubTotals auslesen_in zweiDim Array_&recover

Hallo Excel Freunde,
ich hänge gerade an einem VBA Problem in Pivot Tabellen fest. Für manche Aktionen, die z.T. auch wieder VBA gestützt verlaufen, ist es ungünstig, SubTotals aller Art in den PivotFeldern zu haben. Bevor ich großen Code Aufwand betreibe, diese SubTotals zu erkennen und zu umgehen, möchte ich sie sofern vorhanden erkennen, auslesen (Feldname & Art des SubTotals), in ein Array schreiben und nachdem die Aktion durchgeführt ist, wiederherstellen.
Der 1. Teil geht schon ganz gut. Ich durchlaufe alle Pivot Felder und ermittle deren SubTotal Status korrekt. Um das zu kontrollieren, lasse ich ein Debug.Print mitlaufen. Diese Ergebnisse werden in ein zweispaltiges Array geschrieben. Anschließend werden die SubTotals gelöscht.
Dann wartet die Application 3 Sekunden und soll die SubTotals wieder herstellen. Bei der Wiederherstellung bin ich nun schon gescheitert. Die Kontrolle über Debug.Print zeigt mir, daß die Counter korrekt mitgelaufen sind, aber Debug.Print gibt mir aus dem Array immer nur den letzten Wert aus. Obwohl oben alle Felder & SubTotals korrekt erkannt (und ich nehme an, auch in das Array geschrieben?) wurden.
Aber ich finde den Fehler in der Logik nicht.
Für Anregungen, warum das Array fehlerhaft zu sein scheint, bin ich sehr dankbar.

Die Datei https://www.herber.de/bbs/user/57118.xls wurde aus Datenschutzgründen gelöscht

Vielen Dank und Grüße, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino,
hmmm, vielleicht bin ich wirklich ein wenig begriffsstutzig... Ich habe ein zweidimensionales Array vor zwei Monaten schon einmal sein gelassen, aber diesmal möchte ich es endlichverstehen. Wenn ich immer nur den linken Bereich verändern kann, das sind doch dann die Zeilen. D.h. ReDim Preserve myArr(1 to iCounter, 1 to2) würde das ReDim Preserve entsprechend dem iCounter doch die Zeilen anpassen und nicht die Spalten (1to2). Das wäre ja genau das was ich brauche. Aber das hat nicht geklappt. Das Array eindimensonal hat funktioniert. Sobald (1to2) dazukamen, kam der Fehler 'Index außerhalb des gültigen Bereiches'.
In VBA ist der linke Bereich doch immer die Row? Es wird ja immer erst nach Rowindex und dann Columnindex gefragt. z.B. bei Cells(x, y).
Ich habe mir nun damit beholfen, indem ich einfach das Array (1 to 15, 1 to 2) dimensionierte. Das ist nicht die perfekte Lösung, da ich dadurch Fleixibilität einbüße und "leere Speicherplätze" im Array haben kann. Ich bin nah dran. Um es nun endlich zu verstehen, würde ich mich freuen, sehr freuen, wenn Du in meinem Code die Zeilen verändern kannst, die Du meinst, damit es funktioniert. Vielleicht verstehe ich die Hinweise auch nicht richtig.
Die jetztige Lösung läuft ja. Es geht also nicht darum Programmierarbeit abzunehmen oder das ich es mir nur einfach machen möchte. Aber wenn ich es nicht an dem Beispiel korrekt erleben kann, in das ich mich nun eingedacht habe, wird der Groschen nicht richtig fallen und ich bin in sachen zweidimensionaler Arrays so weit wie vorher...
Kannst Du das machen? Bitte.
Vielen, vielen Dank für Deine Mühe.
Grüße, Andreas

Sub SubTotalsAuslesen_Array() Dim pvTable As PivotTable Dim iCounter, iCounter_2 As Long Dim SubTotalElement As Variant Dim SubTotalArr() 'As String Set pvTable = ActiveSheet.PivotTables(1) iCounter_2 = 0 For Each pvField In pvTable.RowFields iCounter = 0 For Each SubTotalElement In pvField.Subtotals iCounter = iCounter + 1 If SubTotalElement = True Then iCounter_2 = iCounter_2 + 1 ReDim Preserve SubTotalArr(1 To 2, 1 To iCounter_2) Debug.Print iCounter_2; pvField.Caption; "/ SubT:"; iCounter SubTotalArr(1, iCounter_2) = pvField.Caption SubTotalArr(2, iCounter_2) = iCounter pvField.Subtotals(iCounter) = False Exit For End If Next Next SubTotalArr = WorksheetFunction.Transpose(SubTotalArr) Application.Wait Now + TimeSerial(0, 0, 3) For i = 1 To iCounter_2 Debug.Print i; "Field:"; SubTotalArr(i, 1), "SubT:"; SubTotalArr(i, 2) pvTable.RowFields(SubTotalArr(i, 1)).Subtotals(SubTotalArr(i, 2)) = True Next i End Sub

Beliebteste Forumthreads (12 Monate)

Pivot SubTotals auslesen_in zweiDim Array_&recover

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot SubTotals auslesen_in zweiDim Array_&recover

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread