Hallo Leute,

ich verzweifle gerade bei dem Versuch, bestimmte Datenelemente aus einer Pivottabelle mit einem Makro herauszubekommen.

Als Spaltenbeschriftung der Pivottabelle habe ich verschiedene Tage. Als Zeilenbeschriftung ein bestimmtes Kürzel. Jetzt möchte ich gerne abfragen mit dieser Tabelle durchführen, z.B. wenn der "DAT"= datum X, für jedes der Kürzel den Tageswert durch den Gesamtwert teilen (ich muss also auch an den Gesamtwert kommen).
Oder gibt mir das Gesamtergebis des Tages X
Oder die Summe der Tagesergebnisse für die Tage x, y und z
Solche Abfragen halt, die im Grunde ja gleich aufgebaut wären...

Das Problem liegt nun da drin an diese Werte zu kommen. Mittels .GetPivotData() bekomme ich immer die Fehlermeldung "1004 Anwednungs oder objektdefinierter Fehler"

Mein bisheriger Code:
[code]        Dim objPivotTable As PivotTable
        Dim objPivotFieldSorte As PivotField
        Dim objPivotFieldDatum As PivotField
        Dim objPivotItemSorte As PivotItem
        Dim objPivotItemDatum As PivotItem
        Set objPivotTable = ActiveSheet.PivotTables(pvtName)
        Set objPivotFieldSorte = objPivotTable.PivotFields("SORTE")
        Set objPivotFieldDatum = objPivotTable.PivotFields("DAT")
           
            With objPivotTable
            For i = 1 To .PivotFields("DAT").PivotItems.Count
           
            If datum = .PivotFields("DAT").PivotItems(i).Name Then    'Datum ist weiter oben im Format "mm/dd/yyyy" hinterlegt
        
                tagessumme = objPivotTable.GetPivotData("MAS_NET", "SORTE", "CAP", "DAT", datum)
                gewichtung = objPivotItem.Value / tagessumme
             
            End If
          Next
          End With[/code]

Die zugrundeliegende Tabelle:
[URL=http://www.directupload.net][img]http://s14.directupload.net/images/140423/ugsggzlr.jpg[/img][/URL]

Vielen Dank im Voraus für jede Hilfe
Gruß
Tim