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

alle Pivot-Auswahlfelder auf "(Alle)" setzen

alle Pivot-Auswahlfelder auf "(Alle)" setzen
27.01.2005 15:19:50
jens
Hallo liebe "Schlaumichels"
ich möchte alle 14 Pivot-Auswahlfelder per Makro (welches per Button läuft)auf "(Alle)", also "default" setzen lassen.
Ich habe es mit dem Recorder gemacht.....iss nix! (dauert viel zu lange)
Info: Es gibt ansonsten keine weiteren Auswahlfelder im Sheet bzw. Workbook!
Der Code könnte also Anweisen: setze alles auf default (oder so !?)
Danke für jeden Lösungsansatz im Voraus
Gruß - Jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Pivot-Auswahlfelder auf "(Alle)" setzen
29.01.2005 13:21:50
Rolf
Hallo Jens,
versuch's mal so
fG
Rolf
Option Explicit

Sub setpagefields_all()
Dim pfs, pf
Set pfs = ActiveSheet.PivotTables(1).PageFields
For Each pf In pfs
pf.CurrentPage = "(All)"
Next
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige