Pivot-Tabelle mit VBA erstellen

Hallo zusammen,
bin derzeit seit mehreren Tagen an einer Aufgabe, zu welcher ich keine Lösung finde.
Innerhalb einer Datei gibt es ein Sheet mit dem Namen "Alle Monate" und ein weiteres Sheet mit dem Namen "Pivot".
Nun ist es mein Ziel, eine Pivot-Tabelle per Makro aus dem Sheet "Alle Monate" zu erstellen. Nach einer Recherche und dem Testen verschiedener Beispiele, komme ich einfach nicht weiter.
Anbei mein Geschnipsel....


Sub test2()
Dim pc As PivotCache, pv As PivotTable, rngSrc As Range, rngDst As Range
Call DelThem
Set rngSrc = ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion
Set rngDst = ActiveWorkbook.Sheets(1).Range("N173431")
Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rngSrc.Address)
Sheets("Pivot").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
Set pv = pc.CreatePivotTable(TableDestination:=rngDst, TableName:="PivotTable1")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Kost")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Art")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Periode")
.Orientation = xlColumnField
.Position = 1
End With
End Sub
Sub DelThem()
Dim i As Integer
For i = ActiveSheet.PivotTables.Count To 1 Step -1
ActiveSheet.PivotTables(i).TableRange2.EntireRow.Delete
Next
End Sub

Im Punkt


Set pv = pc.CreatePivotTable(TableDestination:=rngDst, TableName:="PivotTable1")

kommt die Fehlermeldung
Laufzeitfehler '1004':
Bezug ist ungültig
und wenn ich es noch einmal starte, kommt diese Fehlermeldung an dem Punkt...
Laufzeitfehler'-2147417848(80010108)':Die Methode 'CreatePivotTable' für das Objekt 'PivotCace' _
_
ist fehlgeschlagen.
In mehreren Posts über eine bekannte Suchmachine wird die Problematik der Erstellung einer _
Pivot-Tabelle angesprochen. Doch leider funktionierte keiner der Beispiele.
Könnt Ihr mir helfen? Kennt sich damit jemand aus?`
Über Hilfe wäre ich sehr dankbar.
Gruß

Hi Rudi,
dem Objekt den Namen PivotTables1 zu zuordnen hatte ich schon getestet, aber wenn ich die Pivot das zweite mal erstelle um etwas zu testen, wurde der Name der Pivot auf PivotTable2 geändert und dann konnte das Objekt nicht zugeordnet werden.
Habe nun noch etwas kleines in die Syntax eingebaut und es funktioniert auch bei mehrmaligen erzeugen der Pivot-Tabelle.


Sub CreatePivot()
'Variablen für PivotTable und PivotField zuordnen
Dim objTable As PivotTable, objField As PivotField
'Das Sheet mit den Daten und der ersten Zelle angeben --> im Beispiel A1
ActiveWorkbook.Sheets("Alle Monate").Select
Range("A1").Select
'Auf Basis der Daten in Sheet "Alle Monate" eine Pivot Tabelle erstellen
Set objTable = ActiveWorkbook.Sheets(1).PivotTableWizard
'Pivotnamen auslesen und ändern in FTE_Pivot
With ActiveSheet
If .PivotTables.Count Then
.PivotTables(1).Name = "FTE_Pivot"
End If
End With
'Innerhalb der Pivot Spaltenbeschriftung und Zeilenbeschriftung angeben
'xlRowField = Zeilenbeschriftung
'xlColumnField = Spaltenbeschriftung
Set objField = objTable.PivotFields("Kost")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("Art")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("Periode")
objField.Orientation = xlColumnField
'Werte innerhalb der Pivot-Tabelle festlegen
Set objField = objTable.PivotFields("FTE")
objField.Orientation = xlDataField
objField.Function = xlSum
'Wenn die Pivot mehrmals erstellt wird, muss der Name "FTE_Pivot" um 1 hochgezählt werden
With ActiveSheet.PivotTables("FTE_Pivot")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
'Doppelte Werte anzeigen
ActiveSheet.PivotTables("FTE_Pivot").PivotFields("Kost").RepeatLabels = True
'Teilergebnisse aus der Tabelle entfernen
ActiveSheet.PivotTables("FTE_Pivot").PivotFields("Kost").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
'Spaltenbreite automatisch anpassen
ActiveSheet.Columns("A:O").EntireColumn.AutoFit
End Sub
Aber vielen Dank noch einmal für die Hilfe.
Gruß

Forumthread: Pivot-Tabelle mit VBA erstellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial