ich möchte aus geschützten Blätern ein pdf ausgeben.
das pdf funktioniert schon gut, jedoch müssen die PivoTabellen auf der Seite vor der Ausgabe aktualisiert werden.
folgender Ausdruck ist momentan eingetragen:
Sub PDFBerichtZWZ_Klicken()
Dim ws As Worksheet
Dim pt As PivotTable
Set ws = Worksheets("Serien Beauftragungen pivo")
ws.Unprotect Password:="fingerweg"
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
ws.Protect Password:="fingerweg"
Set ws = Worksheets("auswertung")
ws.Unprotect Password:="fingerweg"
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
ws.Protect Password:="fingerweg"
Set ws = Nothing
Sheets("auswertung").Range("a124:c179").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Range("a11").Value & "_" & Range("e1").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub