Office: Pivot-Tabelle in gleichem Sheet erstellen

sword · 12. September 2013

Hallo

Ich versuche in Excel 2003 über VBA 3 verschiedene Pivot-Tabellen im gleichen Sheet zu erstellen. Der Code ist in Funktionen unterteilt, also für Tabelle 1 eine eigene Sub, für PT 2 wiederum eine eigene Sub usw. Diese werden nacheinander aufgerufen.

Leider erhalte ich bereits bei der 2. Tabelle den Fehler "Laufzeitfehler '5': Ungültiger Prozeduraufruf oder ungültiges Argument." Als Fehlerhafter Code wird dieser angezeigt:

Code:

Sub PTzwei()
ActiveWorkbook.Worksheets("Piv1").PivotTables("PivotTable1").PivotCache. _
CreatePivotTable TableDestination:="Piv1!R4C13", _
TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion10
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hab schon vieles über diesen Fehler gelesen, überall wird als Lösung angegeben dass man TableDestination leer lassen soll. Nur da ich die 3 PT im gleichen Sheet haben möchte, muss ich dies angeben.

Das schräge daran ist, dass wenn ich SubPTzwei nochmals einzeln aufrufe, die PT dann problemlos erstellt wird.

Hat mir jemand eine Lösung?

:)

Hajo_Zi · 13. September 2013

ich würde vermuten beim zweiten gibt es schon "PivotTable1" da Du der ersten keinen besonderen Namen gegeben hast.

sword · 14. September 2013

Nein, daran liegts nicht. Die erste PT heisst PivotTable1, und die zweite - wie im Code sichtbar - PivotTable2

Luschi · 15. September 2013

Hallo sword,

mit Deinem Code willst Du eine neue Pivot-Tabelle (PT) erstellen aus einer bereits bestehenden PT. Dabei muß lt. Vba-Hilfe folgende Bedingung erfüllt sein:
"Der Zielbereich muss sich in einem Arbeitsblatt der Arbeitsmappe befinden, das das PivotCache-Objekt enthält".
Als Erstes würde ich mal überprüfen, welche PT's es in welchen Arbeitstabellen überhaupt gibt: Code:

Sub testPivots()
Dim wb As Workbook, ws As Worksheet, pvt As PivotTable

Set wb = ThisWorkbook
For Each ws In wb.Worksheets
For Each pvt In ws.PivotTables
Debug.Print ws.Name & ": " & pvt.Name
Next pvt
Next ws

Set pvt = Nothing
Set ws = Nothing
Set wb = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

sword · 23. September 2013

Danke für Eure Hilfe.
Ich hab das Script von Luschi laufen lassen nachdem der 1. Fehler auftrat, Debug.Print gibt nur "Piv1: PivotTable1" aus.

Das wirklich ganz schräge ist, dass ich das selbe Script auf einem Rechner mit Office 2010 unverändert laufen gelassen habe und kein Fehler auftratt - es wurden alle 3 PT wie gewünscht erstellt. Leider muss das Ding aber auf Office 2003 laufen...

Nachstehend mal das ganze Script:

Code:

Sub Makro1()

' Tabelle1 beinhaltet eine Tabelle mit den Spalten "Status", "Ort" und "Abwesend

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R11C3").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Status")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Ort")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Abwesend")
.Orientation = xlColumnField
.Position = 1
End With

ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Abwesend"), "Anzahl von Abwesend", xlCount

ActiveSheet.Name = "Piv1"

Call makro2
Call makro3

End Sub

Sub makro2()

Sheets("Tabelle1").Select
Range("A1:C9").Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!R1C1:R9C3").CreatePivotTable TableDestination:= _
"[Pivot_Test.xls]Piv1!R3C4", TableName:="PivotTable2", DefaultVersion:= _
xlPivotTableVersion10
Sheets("Piv1").Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Abwesend")
.Orientation = xlColumnField
.Position = 1
End With

With ActiveSheet.PivotTables("PivotTable2").PivotFields("Status")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("Ort"), "Anzahl von Ort", xlCount
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Abwesend")
.Orientation = xlPageField
.Position = 1
End With

End Sub

Sub makro3()

Sheets("Tabelle1").Select
ActiveWorkbook.Worksheets("Piv1").PivotTables("PivotTable1").PivotCache. _
CreatePivotTable TableDestination:="[Pivot_Test.xls]Piv1!R3C12", _
TableName:="PivotTable3", DefaultVersion:=xlPivotTableVersion10

Sheets("Piv1").Select

With ActiveSheet.PivotTables("PivotTable3").PivotFields("Abwesend")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Status")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Ort"), "Anzahl von Ort", xlCount
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Ort")
.Orientation = xlColumnField
.Position = 1
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Makro1 ruft am Ende Makro2 und dann Makro3 auf.
Leider wird bei das Script bei Makro2 beim fett markierten Teil der Laufzeitfehler 5 abgebrochen. Rufe ich dann aber Makro2 nochmals alleine auf, läuft die Sub ohne Fehler durch. Deshalb hab ich auch nicht das ganze Script in einer Sub drin, damit ich es nochmals aufrufen kann.

Danke & Gruss
sword

Office: Pivot-Tabelle in gleichem Sheet erstellen

Pivot-Tabelle in gleichem Sheet erstellen

Pivot-Tabelle in gleichem Sheet erstellen

Pivot-Tabelle in gleichem Sheet erstellen

Pivot-Tabelle in gleichem Sheet erstellen - Similar Threads - Pivot Tabelle gleichem

Pivot Tabelle: Quelle per VBA verändern

Provisions-Berechnung mit Pivot-Tabelle

Pivot-Tabelle: Gesamtsummen sortierbar machen?

Pivot Tabelle

(2021) Pivot-Tabelle: mehrere Spalten als eine behandeln

Tabelle strukturieren Angebote, Aufträge, Rechnungen, Buchung

Power Pivot: mehrere Tabellen mit gleichen Spaltenbeschriftungen zusammenfassen