Hallo,
Mbv van onderstaande code wil ik velden die geselecteerd zijn al kolom- of rij-velden verwijderen uit de draaitabel. Ik krijg steeds een foutmelding, zie afb-1.jpg
Omdat ik er zelf niet uitkom wil ik beroep doen op jullie kennis!
Alvast bedankt!!!
Mbv van onderstaande code wil ik velden die geselecteerd zijn al kolom- of rij-velden verwijderen uit de draaitabel. Ik krijg steeds een foutmelding, zie afb-1.jpg
Omdat ik er zelf niet uitkom wil ik beroep doen op jullie kennis!
Alvast bedankt!!!
Code:
Sub RemoveAllFieldsRow()
Dim pt As PivotTable
Dim pf As PivotField
Dim lRmv As Long
Set pt = ActiveSheet.PivotTables(1)
For Each pf In pt.RowFields
lRmv = vbYes
If pf.Name = "Data" Or pf.Name = "Values" Then
lRmv = MsgBox("Click Yes to remove Values field from Row area." _
& vbCrLf _
& "Click No to keep the Values field.", _
vbQuestion + vbYesNo, "Remove Values?")
End If
If lRmv = vbYes Then
pf.Orientation = xlHidden
End If
Next pf
End Sub