Ta bort fältelement i Pivottabeller


Vid utveckling av mallar mm och i synnerhet när vi använder oss av pivottabeller uppstår vanligtvis ett störande problem. I varje fält finns gamla alternativ kvar och dessa vill vi gärna ta bort.

I detta tips visas hur vi kan "nollställa" pivottabellers fältelement och de som är kvar är alternativen "Visa alla" och "Tomma".


 

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»
 

 

(© 2002 - 2005 All rights Colo - Used by permission)

Option Explicit

 

Sub Delete_Unused_PivotFields()

  '© 2005 Alla rättigheter XL-Dennis

  Dim wbBook As Workbook

  Dim wsSheet As Worksheet

  Dim ptTable As PivotTable

  Dim ptField As PivotField

  Dim ptItem As PivotItem

  Dim i As Long

 

  Set wbBook = ThisWorkbook

 

  On Error Resume Next

 

  'Ibland krävs det att proceduren upprepas för

  'att samtliga gamla fältelement tas bort.

 

  'For i = 1 To 2 eller flera gånger...

  For Each wsSheet In wbBook.Worksheets

    For Each ptTable In wsSheet.PivotTables

      For Each ptField In ptTable.PivotFields

        For Each ptItem In ptField.PivotItems

          ptItem.Delete

        Next ptItem

      Next ptField

      ptTable.RefreshTable

    Next ptTable

  Next wsSheet

  'Next i

 

  On Error GoTo 0

 

End Sub