Sub CopyPivotdaten()
Dim wbk As Workbook
Dim Zeilen As Long
Set wbk = ActiveWorkbook
With wbk.Worksheets("Zielblatt") 'Tabellen-Blatt in das Daten aus den 2 Pivots kopiert _
werden sollen
.UsedRange.EntireRow.Delete
With wbk.Worksheets("Pivot1").PivotTables(1).TableRange2
Zeilen = .Rows.Count
.Copy
End With
.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
wbk.Worksheets("Pivot2").PivotTables(1).TableRange2.Copy
.Cells(Zeilen + 3, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Columns.AutoFit
End With
End Sub
Um Werte aus einer Pivot Tabelle zu kopieren, ohne dabei Verknüpfungen zu erstellen, kannst Du die folgende VBA-Lösung verwenden. Diese Methode ist besonders nützlich, wenn Du 2 Pivot Tabellen in einem Blatt zusammenfassen möchtest.
ALT + F11, um den VBA-Editor zu öffnen.Sub CopyPivotdaten()
Dim wbk As Workbook
Dim Zeilen As Long
Set wbk = ActiveWorkbook
With wbk.Worksheets("Zielblatt") 'Tabellen-Blatt in das Daten aus den 2 Pivots kopiert werden sollen
.UsedRange.EntireRow.Delete
With wbk.Worksheets("Pivot1").PivotTables(1).TableRange2
Zeilen = .Rows.Count
.Copy
End With
.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
wbk.Worksheets("Pivot2").PivotTables(1).TableRange2.Copy
.Cells(Zeilen + 3, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Columns.AutoFit
End With
End SubZielblatt, Pivot1, Pivot2) an Deine Bedürfnisse an.Mit diesem Code kannst Du Pivot Tabellen kopieren, ohne dass sie mit der ursprünglichen Datenquelle verknüpft bleiben.
Fehler: „Laufzeitfehler 9: Index außerhalb des gültigen Bereichs.“
Fehler: „Das Arbeitsblatt kann nicht gelöscht werden.“
Fehler: Daten werden nicht korrekt kopiert.
Wenn Du keine VBA-Lösungen verwenden möchtest, gibt es auch manuelle Methoden:
Manuelles Kopieren:
CTRL + C, gehe zum Zielarbeitsblatt und drücke CTRL + V. Dies erstellt jedoch Verknüpfungen zur ursprünglichen Pivot Tabelle.Werte als normale Tabelle kopieren:
Angenommen, Du hast zwei Pivot Tabellen in zwei verschiedenen Arbeitsblättern und möchtest die Werte in ein drittes Arbeitsblatt kopieren. Hier ist ein Beispiel:
1. Wie kopiere ich eine Pivot Tabelle in eine andere Datei?
Du kannst die Pivot Tabelle auswählen, kopieren und dann in die andere Excel-Datei einfügen. Stelle sicher, dass Du „Werte einfügen“ wählst, um Verknüpfungen zu vermeiden.
2. Ist es möglich, mehrere Pivot Tabellen in einem Arbeitsblatt zu kopieren?
Ja, Du kannst mehrere Pivot Tabellen in einem Arbeitsblatt kopieren, indem Du jede Tabelle separat auswählst und die Schritte im VBA-Skript anpasst.