Hallo liebe Forum Mitglieder,
heute benötige ich schon wieder dringend eure Hilfe. Ich versuche verzweifelt aus einer Pivottabelle die Gesamtsumme in eine Variable zu schreiben, die ich dann später in einem Makro weiterverarbeite.
Ich habe bereits über Makrorekorder versucht, die exakten "Feldnamen" der Pivot-Tabelle zu bekommen.
Ergebnis: ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""[Measures].[Proposal Value Euro]"",R10C1)"
Diese Formel habe ich nun versucht für VBA umzuwandeln und habe folgendes Testmakro geschrieben:
'ExcelVersion 2013
Sub test3()
Dim i As Long
Set Pivot_Table = ActiveSheet.PivotTables("PivotTable2")
i = Pivot_Table.GetPivotData("Measures", "Proposal Value Euro")
End Sub
Leider bekomme ich hier immer die Fehlermeldung: Laufzeitfehler 1004.
Ehrlich gesagt, ich verstehe die Welt nicht mehr. Auch Recherchen via Google etc. haben mir nicht weitergeholfen. Es gibt zwar 1000 Hilfen zu diesem Thema, aber ich bekomme es einfach nicht hin dieses simple Makro zum laufen zu bekommen.
Ich hoffe sehr, dass ihr mir weiterhelfen könnt.
Vielen Dank schon mal, Jörg
heute benötige ich schon wieder dringend eure Hilfe. Ich versuche verzweifelt aus einer Pivottabelle die Gesamtsumme in eine Variable zu schreiben, die ich dann später in einem Makro weiterverarbeite.
Ich habe bereits über Makrorekorder versucht, die exakten "Feldnamen" der Pivot-Tabelle zu bekommen.
Ergebnis: ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""[Measures].[Proposal Value Euro]"",R10C1)"
Diese Formel habe ich nun versucht für VBA umzuwandeln und habe folgendes Testmakro geschrieben:
'ExcelVersion 2013
Sub test3()
Dim i As Long
Set Pivot_Table = ActiveSheet.PivotTables("PivotTable2")
i = Pivot_Table.GetPivotData("Measures", "Proposal Value Euro")
End Sub
Leider bekomme ich hier immer die Fehlermeldung: Laufzeitfehler 1004.
Ehrlich gesagt, ich verstehe die Welt nicht mehr. Auch Recherchen via Google etc. haben mir nicht weitergeholfen. Es gibt zwar 1000 Hilfen zu diesem Thema, aber ich bekomme es einfach nicht hin dieses simple Makro zum laufen zu bekommen.
Ich hoffe sehr, dass ihr mir weiterhelfen könnt.
Vielen Dank schon mal, Jörg