Loop While add Fields to Pivot Table

[GooseNL]

Hi,

I am adding fields to a pivot table using the following macro. I would like to loop the fields until a counter reaches a set value.

Sub MacroAdd()

With ActiveSheet.PivotTables("Draaitabel2").PivotFields("trial3")
.Orientation = xlColumnField
.Position = 1
End With
Range("C3").Select
ActiveSheet.PivotTables("Draaitabel2").PivotFields("trial3").Orientation = _xlHidden
ActiveSheet.PivotTables("Draaitabel2").AddDataField ActiveSheet.PivotTables( _"Draaitabel2").PivotFields("trial2"), "2", xlSum
End Sub

I was thinking of adding something like this:

For x = 2 to 10
ActiveSheet.PivotTables("Draaitabel2").AddDataField ActiveSheet.PivotTables( _"Draaitabel2").PivotFields("trial" & x), (x), xlSum
Next x


But that gives an error.

Can anyone point me in the right direction?

Cheers, GooseNL

 

[Herbert Seidenberg]

Excel 2010, PivotTable
Create PT with VBA, add DataFields
with and without loops.
http://c3017412.r12.cf0.rackcdn.com/04_24_11.xlsm
If you get *.zip, don't unzip, just rename *.xlsm

 

[GooseNL]

Hi Herbert,

Thanks for the reply. However I am using excel 2003 and am not sure if I can use your examples.

Cheers, Goose