Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot-Tabelle automatisch abspeichern

Pivot-Tabelle automatisch abspeichern
21.01.2021 09:19:53
David
Hallo zusammen,
ich habe eine Pivot-Tabelle mit einem Filter, bei welchem 30 verschiedene Abteilungen ausgewählt werden können.
Hier habe ich vor, quasi von oben nach unten die erste Abteilung auszuwählen, die Pivot-Tabelle als PDF unter dem Abteilungsnamen abzuspeichern, dann die nächste Abteilung auszuwählen, als PDF abspeichern, ... bis ich bei der letzten Abteilung angekommen bin.
Was ich mir bisher bzgl. des Filterns per Recorder zusammengebastelt habe ist folgendes:
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Orga")
.PivotItems("Abteilung1").Visible = True
.PivotItems("Abteilung2").Visible = False
Nun stehe ich leider auf dem Schlauch, wie ich das fertig machen kann, dass es automatisch eins nach dem anderen Filtert und abspeichert.
Vorab schon einmal vielen Dank!
LG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot-Tabelle automatisch abspeichern
21.01.2021 09:40:06
Hajo_Zi
benutze den Makrorecorder.

AW: Pivot-Tabelle automatisch abspeichern
21.01.2021 10:07:42
David
Hallo Hajo,
würdest du quasi per Recorder alle einzeln auswählen und speichern? Oder wird da dann automatisch ab einem gewissen Punkt eine Schleife drum herum gebaut, welche ich dann erweitern kann?
Danke und Gruß
David
AW: Pivot-Tabelle automatisch abspeichern
21.01.2021 10:52:30
ChrisL
Hi
Sub Makro1()
Dim pi1 As PivotItem, pi2 As PivotItem
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Orga")
For Each pi1 In .PivotItems
pi1.Visible = True
For Each pi2 In .PivotItems
If pi1.Name  pi2.Name Then pi2.Visible = False
Next pi2
MsgBox "Filter gesetzt für " & pi1.Name
Next pi1
End With
End Sub
cu
Chris
Anzeige
AW: Pivot-Tabelle automatisch abspeichern
21.01.2021 17:43:59
David
perfekt, hat alles einwandfrei funktioniert!
Danke Chris!
Gruß
David

303 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Pivot automatisch aktualisieren
Tina

Hallo,
ich möchte ein Pivot Table automatisch aktualisieren lassen. Das Table befindet sich allerdings auf dem gleichen Sheet wie die Daten und da komme ich nicht weiter.
Kann mir jemand einfach, aber effektiv helfen?
30.10.2008 10:47:38
Thread-ID: 1020519
3 Beiträge
Anzeige
Makro zerschießt die Pivottabelle
J.


Hallo zusammen,
ich habe ein Makro programmiert, das Anfangs gut funktionierte.
Und zwar habe ich ein Tabellenblatt erstellt inkl. einer Pivottabelle. Durch Auswahl einer DropandDown-Liste werden automatisch andere Daten gezogen.
Nun habe ich eine Makro geschrieben, bei dem aut...
22.01.2009 16:15:40
Thread-ID: 1042685
7 Beiträge
alle Pivottabellen in Datei aktualisieren
Julia

Hallo hab folgendes Makro
Sub Pivot() ' Pivot Makro ' Makro am 25.02.2009 von mir aufgezeichnet Sheets("Pivot1").Select Range("A8").Select ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh Sheets("Pivot2").Select Range("A7").Select ActiveSheet.PivotTables("PivotTable4").PivotCach...
26.02.2009 11:08:37
Thread-ID: 1054274
2 Beiträge
Pivot Tabellen aktualisieren
Frank

Hallo zusammen!
In einer Excel-Arbeitsmappe habe ich auf unterschiedlichen Arbeitsblättern Pivot-Tabellen, die sich alle auf den selben Datenberiech beziehen. Nach Änderung von Daten im Datenbereich würde ich gern auf Knopfdruck alle Pivottabellen auf einmal aktualiesieren. Wie ist das mögl...
08.04.2009 15:29:29
Thread-ID: 1067758
3 Beiträge
Pivottabelle aktualisieren wenn externe Daten aktu
Johannes

Hallo,
ich hab eine Excellmappe in der viele externe CVS's als externe Daten referenziert werden und beim Start automatisch aktualisiert werden. in der selben Mappe sind auch einige Pivottabellen, die beim Öffnen automatisch aktualisiert werden. Leider klappt das oftmals nicht. Gibt es ein...
29.06.2009 12:42:23
Thread-ID: 1085099
7 Beiträge
VBA-Funktion in Pivot-Tabelle
Ziegenpeter

Hallo Zusammen!
Vielleicht kann mir jemand bei folgendem Problem helfen:
Ich habe per VBA eine Funktion namens Sigma() geschrieben. Sie funktioniert problemlos. Nun will ich diese Funktion auch in einer Pivot-Tabelle nutzen, das funktioniert nicht.
Beispiel:
Das einzufügende ber...
10.09.2009 20:19:28
Thread-ID: 1101842
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
2
1
6
1
2
6
2
2
2
7
1
2
1
4
3
2
4
1
1
3
3
3