Pivot Fields Eigenschft kann nicht zugeordnet
29.10.2008 16:22:29
Becker
folgende Problemstellung:
Hebe mir mit Macro Recoder eine Pivot Table aufgezeichnet. Das aufgezeichnete "makro7" lässt sich nicht zum zweiten mal starten.
Folgende Fehler Meldung kommt;
"Laufzeitfehler 1004 - Die Pivot Fields-Eigenschaft des Pivot Table-Objekt kann nicht zugeordnet werden"
Und zwar in diesen Synthax;
" ActiveSheet.PivotTables("PivotTable27").AddDataField ActiveSheet.PivotTables( _
"PivotTable27").PivotFields("Summe"), "Anzahl von Summe", xlCount"
Kennt sich jemnad datim aus?
Für einen Hinweis wäre ich sehr dankbar!
Viele Grüße
Daniel
Anbei das aufgenommene Makro:
Sub Makro7()
Sheets("Daten").Select
Columns("A:F").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Daten!C1:C6").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable27", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable27").AddDataField ActiveSheet.PivotTables( _
"PivotTable27").PivotFields("Summe"), "Anzahl von Summe", xlCount
With ActiveSheet.PivotTables("PivotTable27").PivotFields("VK-Datum")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("EK-Datum")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("Namen")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("ArtkNr")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("Währung")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable27").PivotFields("Anzahl von Summe"). _
Function = xlSum
Range("A4").Select
ActiveSheet.PivotTables("PivotTable27").PivotFields("ArtkNr").Subtotals = Array _
(False, False, False, False, False, False, False, False, False, False, False, False)
Range("B4").Select
ActiveSheet.PivotTables("PivotTable27").PivotFields("Namen").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
Range("C4").Select
ActiveSheet.PivotTables("PivotTable27").PivotFields("Währung").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, _
False)
Range("D4").Select
ActiveSheet.PivotTables("PivotTable27").PivotFields("EK-Datum").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, _
False)
Range("E4").Select
ActiveSheet.PivotTables("PivotTable27").PivotFields("VK-Datum").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, _
False)
With ActiveSheet.PivotTables("PivotTable27").PivotFields("ArtkNr")
.PivotItems("(Leer)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("Namen")
.PivotItems("(Leer)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("Währung")
.PivotItems("(Leer)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("EK-Datum")
.PivotItems("(Leer)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable27").PivotFields("VK-Datum")
.PivotItems("(Leer)").Visible = False
End With
End Sub