Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Pivotergebnisse beschleunigen

Pivotergebnisse beschleunigen
28.04.2006 13:44:51
Matthias
Hallo Forumsmitglieder,
ich habe in meiner Pivot 5 Regionen mit jeweiligen Auftragsnummern.
Wenn ich die Regionsergebnisse sehen will doppelklicke ich auf die Region und die einzelnen Autr. Nr. verschwinden. Hat jemand eine schnellere Lösung, es dauert immer lange.
Der Makrorekorder hat das so aufgenommen:
ActiveSheet.PivotTables("PivotTable").PivotFields("GB").PivotItems( _
"B&D Shipping").ShowDetail = False
ActiveSheet.PivotTables("PivotTable").PivotFields("GB").PivotItems("Mitte"). _
ShowDetail = False
ActiveSheet.PivotTables("PivotTable").PivotFields("GB").PivotItems("Südwest"). _
ShowDetail = False
ActiveSheet.PivotTables("PivotTable").PivotFields("GB").PivotItems("IAB"). _
ShowDetail = False
ActiveSheet.PivotTables("PivotTable").PivotFields("GB").PivotItems("Nordwest"). _
ShowDetail = False
ActiveSheet.PivotTables("PivotTable").PivotFields("GB").PivotItems("Südost"). _
ShowDetail = False
Gruß
Maze

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivotergebnisse beschleunigen
28.04.2006 20:53:08
Kurt

Sub schneller()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
With ActiveSheet.PivotTables("PivotTable").PivotFields("GB")
.PivotItems("B&D Shipping").ShowDetail = False
.PivotItems("Mitte").ShowDetail = False
.PivotItems("Südwest").ShowDetail = False
.PivotItems("IAB").ShowDetail = False
.PivotItems("Nordwest").ShowDetail = False
.PivotItems("Südost").ShowDetail = False
End With
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub

mfg Kurt
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige