PDA

Vollständige Version anzeigen : Set PivotTable Error 1004


aquopyra
12.07.2014, 11:50
Hi all,

Ich probiere seit kurzem Datein auf VBA zu aktualisieren.

Bei der Erstellung einer Pivot Tabelle bekomme ich immer diesen fehler

"Run-Time Error '1004' Application defined or object defined error"

Dieser Fehler entsteht immer bei dem set meiner Pivot Tabelle.

In Rot wo das Fehler auftaucht.

Ich habe schon mehrere Suche auf Internet gemacht aber irgendwie komme ich nicht weiter.

Vielleich ist es ganz einfach aber als ganz neue in der VBA Welt ist es nicht so einfach :)

Vielen dank für eure Hilfe



Sub Pivot()

Dim pt As PivotTable
Dim ws As Worksheet
Dim ps As Worksheet
Dim PTCache As PivotCache
Dim Bereich As Range
Dim i As Long 'finalrow
Dim y As Long 'Finalcolumn

Set ws = Worksheets("Zeiterfassung")

Set ps = Worksheets("Pivot")

i = ws.cells(Application.Rows.Count, 1).End(xlUp).Row


y = ps.cells(1, Application.Columns.Count).End(xlToLeft).Column


Set Bereich = ws.cells(1, 1)(i, y)

Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Bereich)


Set pt = PTCache.CreatePivotTable(TableDestination:=ps.Range("A1"), TableName:="PIV")

pt.ManualUpdate = True

pt.AddFields RowFields:="Name", ColumnFields:="Monate"

With pt.PivotFields("Stunden")

Orientation = xlDataField
Fonction = xlSum

End With

pt.ManualUpdate = False

End Sub