Pivot kreierien mit aufzeichnung
18.02.2020 11:43:26
Sebastian
ich habe folgende Aufzeichnung gemacht um eine Pivot via Makro zu kreiieren.
Allerdings komme nach der Aufzeichnung zu folgenden Fehler wenn ich die Makro nochmals Ausführen will.
"Laufzeitfehler 1004 Die Pivottables- Eigenschaften des Worksheets-Obj kann nicht zugeordnet werden".
In dem Code ist mir klar dass ich die Ausgangstabelle neu nominieren muss und hab dies extra im code um gestellt... allerdings hakt es sicherlich beim Pivotname.
Debbugger hält schon in dem Fettmarkierten code an.
Sub Makro8()
' Makro8 Makro
Sheets.Add
ActiveWorkbook.Worksheets("Pivot").PivotTables("PivotTable7").PivotCache. _
CreatePivotTable TableDestination:="", TableName:= _
"", DefaultVersion:=6
Sheets("Tabelle12").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable8")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables("PivotTable8").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("PivotTable8").RepeatAllLabels xlRepeatLabels
Rows("1:2").Select
Range("A2").Activate
Selection.Delete Shift:=xlUp
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Artikelnummer")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable8").PivotFields("SKZ")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerort")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerort")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
"PivotTable8").PivotFields("Menge Lagerort"), "Summe von Menge Lagerort", xlSum
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerplatz")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
"PivotTable8").PivotFields("Menge Lagerplatz"), "Summe von Menge Lagerplatz", _
xlSum
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Versorgerwerk")
.Orientation = xlRowField
.Position = 4
End With
ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
"PivotTable8").PivotFields("Menge Versorger Lagerort"), _
"Summe von Menge Versorger Lagerort", xlSum
ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
"PivotTable8").PivotFields("Restmenge Basis"), "Summe von Restmenge Basis", _
xlSum
ActiveSheet.PivotTables("PivotTable8").AddDataField ActiveSheet.PivotTables( _
"PivotTable8").PivotFields("Ueber/Unterdeckung"), _
"Summe von Ueber/Unterdeckung", xlSum
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerort Auftr")
.Orientation = xlRowField
.Position = 5
End With
ActiveSheet.PivotTables("PivotTable8").PivotSelect "'165'", xlDataAndLabel + _
xlFirstRow, True
ActiveSheet.PivotTables("PivotTable8").PivotFields("Artikelnummer").Subtotals _
= Array(False, False, False, False, False, False, False, False, False, False, False, _
False _
)
ActiveSheet.PivotTables("PivotTable8").PivotFields("SKZ").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerort").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, _
False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Menge Lagerort").Subtotals _
= Array(False, False, False, False, False, False, False, False, False, False, False, _
False _
)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerplatz").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, _
False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Menge Lagerplatz"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
_
False, False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Versorgerwerk").Subtotals _
= Array(False, False, False, False, False, False, False, False, False, False, False, _
False _
)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Menge Versorger Lagerort"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
_
False, False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Restmenge Basis"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
_
False, False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Ueber/Unterdeckung"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
_
False, False)
ActiveSheet.PivotTables("PivotTable8").PivotFields("Lagerort Auftr").Subtotals _
= Array(False, False, False, False, False, False, False, False, False, False, False, _
False _
)
ActiveSheet.PivotTables("PivotTable8").RowAxisLayout xlTabularRow
ActiveSheet.PivotTables("PivotTable8").RepeatAllLabels xlRepeatLabels
End Sub