Grootte van sourcedata bij programmeren van draaitabel in VBA

[VBAnieuweling]

Allen

ik probeer een draaitabel in VBA te programmeren a.h.v. onderstaande VBA code.

Enkel loop ik tegen het probleem aan dat mijn sourcedate maar van "a1:d65536" kan gaan om een draaitabel te creëren.

Wil ik van "a1:k198000" een draaitabel programmeren in VBA dan krijg ik geen draaitabel in mijn worksheet.

Kan iemand mij helpen?




Sub Data_In_Pivot()

Dim pt As pivotta
Dim cacheofpt As PivotCache
Dim pf As PivotField
Dim pi As PivotItem
'Dim finalrow As Long
' Dim finalcol As Long
Dim ws As Worksheet
Dim prange As Range

Set ws = Worksheets("historiek 2011")

On Error Resume Next
Sheets("data1").Select
ActiveSheet.PivotTables("MyPT").TableRange2.Clear



'finalrow = ws.cells(Application.Rows.Count, 1).End(xlUp).Row
'finalcol = ws.cells(1, Application.Columns.Count).End(xlToLeft).Column



'Set prange = ws.cells(1, 1).Resize(finalrow, finalcol)




Sheets("historiek 2011").Select
Set cacheofpt = ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("a1:d65536"))

Sheets("data1").Select
Set pt = ActiveSheet.PivotTables.Add(cacheofpt, Range("a1"), "MyPT")

With pt
.PivotFields("Grootboek").Orientation = xlRowField
.PivotFields("Boekperiode").Orientation = xlColumnField
End With


End Sub