Counting Data Field within a Pivot Table

  • Thread starter Thread starter ExcelMonkey
  • Start date Start date
E

ExcelMonkey

I have a routine that checks all the names of a pivot table's dat
fields (See Below). How can I count the number of data fields withi
the For Each Loop?



Sub DisplayDataFields()
Dim x As Variant
Dim Pivot1 As PivotTable
Set Pivot1 = Worksheets("Sheet1").PivotTables("Pivot Table 1")
For Each x In Pivot1.DataFields
'Display pivot field source name (name of field in original
'data)
MsgBox "Pivotfield SourceName is " & x.SourceName
Next
End Su
 
Seems you could just DIM another as an integer:

Dim counter as integer

The increment the variable each time the loop iterates:

counter=counter+1

If you do this before the MsgBox is displayed, you could
also display the count value in the MsgBox.>-----Original
Message-----
 
Back
Top