• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Samenvouwen PivotTable Macro

Status
Niet open voor verdere reacties.

DJ.Funny

Gebruiker
Lid geworden
17 jan 2006
Berichten
113
Beste lezers,


Een PivotTable geeft een hoop resultaten welke wij eerst samengevouwen willen laten zien. Wil iemand de onderliggende gegevens, dan kan hij/zij het middels uitvouwen laten tonen.

Echter, indien men heeft uitgevouwen en men slaat het zo op en later ververst men de gegevens opnieuw, dan zijn de vorige keer uitgevouwen items nog steeds uitgevouwen en niet samengevouwen.

Ik had hiervoor het onderstaande stukje vb-script gemaakt, maar dat werkt niet.


Code:
For Each Worksheet In Workbook.Worksheets

    For Each pivotTable In Worksheet.PivotTables
        
        pivotTable.RefreshTable
        pivotTable.PivotFields.PivotItems.ShowDetail = False
        
        
        
        pivotTable.Update
        
        
        'check
        'MsgBox ("Ververst " & pivotTable.Name)
    
   Next
   Next

Iemand enig idee? Het gaat fout op het stukje: pivotTable.PivotFields.PivotItems.ShowDetail = False


Dirk
 
Je geeft niet aan voor welk field/item je de details wilt verbergen. Bijv:
pivotTable.PivotFields("Land").PivotItems("NL").ShowDetail = False
Een voorbeeld van jouw pivot kan het concreet maken.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan