Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1740to1744
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
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige