Office: Reduzierung von Pivot-Tabellen in EXCEL

RaynAnderson · 15. November 2014

Hallo,

Hallo,

ich habe ein Makro aufgezeichnet, dass bei einer Pivot-Tabelle alle Zeilen reduziert.

Nun habe ich aber eine Excel-Datei mit 40 Pivot-Tabellen. Gibt es eine Möglichkeit, dass alle Zeilen mit einem Makro reduziert werden?*frown.gif*

Code:

Sub Makro1()

Sheets("Tabelle2").Select
Range("A2").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Aktueller Benutzer Abteilung").ShowDetail = False
Range("C2").Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

Rayn

:)

xlph · 17. November 2014

Hallo,

Code:

Sub AllePivotfelderInAllenBlaetternReduzieren()

Dim WS As Worksheet
Dim PT As PivotTable
Dim PF As PivotField

For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
For Each PF In PT.PivotFields
PF.ShowDetail = False
Next
Next
End With

Set WS = Nothing
Set PT = Nothing
Set PF = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RaynAnderson · 18. November 2014

Leider funktioniert der Code nicht *frown.gif*

xlph · 18. November 2014

Hallo,

lad die Datei hoch.

Office: Reduzierung von Pivot-Tabellen in EXCEL

Reduzierung von Pivot-Tabellen in EXCEL

Reduzierung von Pivot-Tabellen in EXCEL

Reduzierung von Pivot-Tabellen in EXCEL

Reduzierung von Pivot-Tabellen in EXCEL - Similar Threads - Reduzierung Pivot Tabellen

(2021) Pivot-Tabelle: mehrere Spalten als eine behandeln

Artikelmenge pro Sekunde

Pivot Gruppe basierend auf Liste

Tabelle strukturieren Angebote, Aufträge, Rechnungen, Buchung

Pivot Zeit Aufgaben je Arbeitszeit

Pivot Tabelle mit leeren Arbeitsblättern?

Zehn Tipps zur Reduzierung von Spam