Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Pivot Filter per VBA

Pivot Filter per VBA
25.02.2020 11:31:04
Mcadder
Ich habe ein Blatt mit einem Pivot Table, dessen Daten monatlich neu befüllt werden, dann gehe ich momentan noch händisch alle vorhandenen Filtermöglichkeiten durch und speichere mit folgendem Macro als PDF.
Es ist nur ein Filter vorhanden, mit max 24 Möglichkeiten. (Filiale A, Filiale B, Filiale D etc.)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveSheet.Range("K6").Value, Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
In K6 steht mein Dateipfad der sich je nach gewähltem Filter anpasst.
Ich suche nun eine Möglichkeit, alle Filtermöglichkeiten nacheinander per Macro anzuwählen und als PDF zu speichern. Es wäre mir auch egal wenn jedes Monat alle 24 PDFs erstellt werden, und wenn es in einem Monat keine Zeilen zu einer Filiale gibt, bleibt diese Liste leer.
Vielen Dank
LG
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot Filter per VBA
26.02.2020 09:41:18
Mcadder
Vielleicht habe ich mich zu unklar ausgedrückt oder die Frage war zu banal für das Forum, ich konnte das jetzt mit einer einfachen Schleife lösen:
Sub DruckPdf()
' DruckPdf Makro
With ActiveSheet.PivotTables("Pivot")
With .PivotFields("Bereich")
For i = 1 To .PivotItems.Count
.CurrentPage = .PivotItems(i).Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveSheet.Range("K6").Value,  _
Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
End With
End With
End Sub
Wenn da irgendein Fehler drinnen ist, den ich nicht bedacht habe, freue ich mich immer noch über Antworten
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige