Hallo Zusammen,

den Code habe ich mit dem Rekorder aufgezeichnet. Funktioniert auch einwandfrei. Mit entsprechenden Änderungen werden auch neue Pivot Tabellen erstellt
Problem ist nur, es wird bei der Erstellung in der Zieltabelle immer wieder eine neue leere Tabelle eingefügt. Wie kann ich dieses unterbinden?

Vielen Dank ür die Hilfe

Gruß
Jupp

Sub Pivot_Vollkost_Quartal1()

Range("B4:E36").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Lieferungen_Quartal!R4C2:R36C5", Version:=8).CreatePivotTable _
TableDestination:="Gesamt_Quartal!R3C1", TableName:="PivotTable1", _
DefaultVersion:=8
Sheets("Gesamt_Quartal").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1")
.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("PivotTable1").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("PivotTable1").RepeatAllLabels xlRepeatLabels
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Name")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Gelieferte Menge"), "Summe von Gelieferte Menge", _
xlSum
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Wareneinsatz"), "Summe von Wareneinsatz", xlSum
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Umsatz"), "Summe von Umsatz", xlSum
End Sub