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.
Iemand enig idee? Het gaat fout op het stukje: pivotTable.PivotFields.PivotItems.ShowDetail = False
Dirk
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