Pivot-Tabelle mit VBA erstellen
02.02.2016 10:17:14
kultnoob
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ß