Pivottabelle Details Datenbereich

23/12/2007 - 19:11 von Ralf Reimann | Report spam
Hallo zusammen,

ich habe eine Pivottabelle, die im Datenbereich die Funktion Anzahl enthàlt.
Per VBA bin ich bis hierhin gekommen:

Sub piv()
Dim pt As PivotTable
Dim pi, obj
Set pt = Sheets("Blatt").PivotTables(1)
Set pi = pt.PivotFields("abgleich").PivotItems("Fehler")
Set obj = pi.DataRange
obj.Select
End Sub

Es ist nun eine einzelne Zeile des Datenbereichs der Pivottabelle markiert.
In der ersten markierten Zelle steht beispielsweise eine 5, d.h.der
Detaildatensatz besteht aus 5 Zeilen der Datenquelle. Diese 5 Zeilen, bzw.
die Details aller Felder dieser 5 Zeilen, würde ich gern per VBA ermitteln,
ohne die Detailtabelle per "ShowDetail" zu öffnen.
Wie wàre die oben stehende Prozedur zu erweitern?
Im Überwachungsfenster habe ich mir obj angesehen, aber ich finde die
Details nicht.
Geht das so überhaupt?

Besten Dank.

Gruß Ralf
 

Lesen sie die antworten

#1 Thomas Ramel
24/12/2007 - 17:49 | Warnen spam
Grüezi Ralf

Ralf Reimann schrieb am 23.12.2007

ich habe eine Pivottabelle, die im Datenbereich die Funktion Anzahl enthàlt.
Per VBA bin ich bis hierhin gekommen:

Sub piv()
Dim pt As PivotTable
Dim pi, obj
Set pt = Sheets("Blatt").PivotTables(1)
Set pi = pt.PivotFields("abgleich").PivotItems("Fehler")
Set obj = pi.DataRange
obj.Select
End Sub

Es ist nun eine einzelne Zeile des Datenbereichs der Pivottabelle markiert.
In der ersten markierten Zelle steht beispielsweise eine 5, d.h.der
Detaildatensatz besteht aus 5 Zeilen der Datenquelle. Diese 5 Zeilen, bzw.
die Details aller Felder dieser 5 Zeilen, würde ich gern per VBA ermitteln,
ohne die Detailtabelle per "ShowDetail" zu öffnen.
Wie wàre die oben stehende Prozedur zu erweitern?
Im Überwachungsfenster habe ich mir obj angesehen, aber ich finde die
Details nicht.
Geht das so überhaupt?



Eine interessante Frage - die Daten sind im PivotCache enthalten, sonst
könnte ein 'SchowDetail' diese nicht zu Tage bringen. Ob Du da aber mit VBA
so einfach rankommst ist mir nicht bekannt (was aber nichts heissen muss).

Warum reicht dir die Detailtabelle denn nicht aus?

Was ist der erweiterte Hintergrund deines Ansinnens?

Prinzipiell sollten dir ja die Quelldaten zur Verfügung stehen, sodass Du
darauf zurückgreifen kannst.


Mit freundlichen Grüssen
Thomas Ramel

- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps

Ähnliche fragen