GetPivotData
21.08.2014 11:06:48
Dennis
Das Ein oder Andere bekomme ich mit viel ausprobieren in VBA mittlerweile hin, in diesem Fall bin ich allerdings an meine Grenzen gestoßen.
Mittels GetPivotData bekomme ich verschiedene Summen aus einer Pivottabelle ausgelesen, bis zu einer gewissen Ebene klappt es auch, aber ab hier habe ich keine Chance mehr:
=+PIVOTDATENZUORDNEN("Weighted Amount (converted)";$A$3;"Exp Billing Mth";DATUM(2014;7;1);
"Country Grouping";"Belgium")
Das ist die Formel die Excel mir gibt wenn ich die Zelle innerhalb eines Arbeitsblatts "ansteuer". Meine Übersetzung in VBA sieht folgendermaßen aus:
Ausgelesen werden soll die Zelle B6.
w = Worksheets("July").PivotTables(1).GetPivotData("Weighted Amount (converted)", Cells(3, 1), "Exp Billing Mth",
"Date(2014, 7, 1)", "Country Grouping", "Belgium", "Funnel Stage", "Best Few").Value
Die Zelle H6 bekomme ich ausgelesen über folgenden Code:
w = Worksheets("July").PivotTables(1).GetPivotData("Sum of Weighted Amount (converted)", "country grouping", "Belgium", "Funnel Stage", "Best Few").Value
Und was soll ich sagen, es will einfach nicht funktionieren. Es erscheint immer Laufzeitfehler '1004' Anwendungs oder Objektorientierter Fehler.
Über jegliche Hilfe von Euch wäre ich dankbar. Eine Beispieldatei habe ich angefügt, die Zahlen musste ich leider entfernen.
Vielen Dank vorab für Eure Hilfe!
Gruß
Dennis