[VBA, EXCEL2003] Pivottable macro error

[Gulf_5]

code:

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Sheets("ActCode for Macro").Select
    ActiveWindow.SelectedSheets.Delete
    
    Sheets.Add
    ActiveSheet.Name = "ActCode for Macro"
    
    
    Sheets("Datatab").Select
    Columns("E:G").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Datatab!C5:C7").CreatePivotTable TableDestination:= _
        "'[Call Content Tool(test).xls]ActCode for Macro'!R1C1", TableName:= _
        "PivotActCode", DefaultVersion:=xlPivotTableVersion10
    ActiveWorkbook.ShowPivotTableFieldList = True
    Sheets("ActCode for Macro").Select
    With ActiveSheet.PivotTables("PivotActCode").PivotFields("ActivityCode")
        .Orientation = xlRowField
        .Position = 1
    End With

regel 19: With ActiveSheet.PivotTables("PivotActCode").PivotFields("ActivityCode")

Met deze code wil ik vanaf een datatab sheet, met 3 kolommen een pivottable maken, waar hij vervolgens 2 sorteerwaarden invoegt. Het gedeelte van de macro dat er na moet komen is af en werkt,(en heb ik dus niet geplaatst hier) maar op bovenstaande vetgedrukte regel gaat t mis.
Ik krijg de volgende error:
runtime error '1004':
Unable to get the PivotFields property of the PivotTable class
Het lijkt er dus op dat ik nog iets moet opnemen in de macro mbt de table-class oid, maar ik zou niet weten of dat het werkelijk is en hoe ik dat dan moet doen.

Zoeken in Google op Pivottable icm VBA levert toch steeds alleen maar basic pivottable dingetjes op, dus daar heb ik niet zoveel in. Ook GoT lijkt dit probleem nog niet eerder te zijn tegengekomen

Thanks in advance !

[ Voor 7% gewijzigd door Gulf_5 op 09-12-2005 09:42 ]

[Verwijderd]

heb je wel een draaitabelveld activitycode? zie ook je sourcedata property.

[Gulf_5]

de pivotfield krijgt de naam mee die bovenaan de kolom van de sourcedata staat, dus die is hetzelfde , en zoals ie in de code staat issie dus goed... (zou je zeggen... )

[Verwijderd]

zeker? voer eens het volgende in het debugvenster (alt+f11 ctrl+g) uit nadat de draaitabel is gecreëerd:
for each pf in activesheet.pivottables("PivotActCode").pivotfields:? pf.name:next