benutze Felder in Pivot ermitteln
05.10.2022 15:18:22
Robert
ich hoffe mir kann jemand helfen:
Ich habe viele große (MB) Excels mit Pivots (Die Daten sind im Excel gespeichert). Um die Größe zu verringern möchte ich nun unbenutzte Spalten der Quelle weglassen. Dazu muss ich wissen welche Felder benutzt werden bzw. welche Felder überhaupt vorhanden sind. Bin leider nicht weit gekommen, außer, dass ich die vorhandenen Pivots im Excel ermittle.
Wie ermittle ich das nun?
Vielen Dank für eure Hilfe
Public Sub ermittle()
For blatt = 1 To ThisWorkbook.Sheets.Count
For Each PVT In ThisWorkbook.Sheets(blatt).PivotTables
'1. Alle verfügbaren Felder ermitteln (alle Spalten der Quelltabelle im Pivot)
'2. Alle Felder, die in
'Filter, Spalten, Zeilen, Werte
'durch Slicer gefiltert
'oder in einem berechneten Feldern
' verwendet werden
Next
Next blatt
End Sub