Ich hoffe mir kann jemand helfen?! Schon seit 1 Woche versuche ich, aus einer Pivattabelle zu drucken. Und zwar möchte ich, dass die Werte aus dem Filter alle einzeln aufgerufen und automatisch gedruckt werden können. Ich habe auch schon ein Makro aufgezeichnet und versucht es auszuführen, aber es funktioniert einfach nicht :-(. Gerne würde ich automatisch die Werte aus dem Filter der Reihe nach aufrufen können.
Das ist mein jetziges Makro:
Sub Macro_drucken()
ActiveSheet.PivotTables("PivotTable3").PivotFields("BL").CurrentPage = "16220"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PivotTables("PivotTable3").PivotFields("BL").CurrentPage = "16240"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Kann mir vielleicht jemand helfen? Danke!!!