|
Hallo!
Ich benutze derzeit diese VBA um mein Excel auf Knopfdruck als pdf mit dem Dateinamen und in den gleichen Speicherort zu speichern.
Sub SheetsToPdf()
With ThisWorkbook
.Sheets(Array("Tabelle 1", "Tabelle 2", "Tabelle 4", "Tabelle 6")).Select
.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", "") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
.ActiveSheet.Select
End With
End Sub
Dies Funktioniert soweit perfekt. Nun möchte ich aber, dass immer alle Register die Angezeigt sind als pdf-gespeichert werden. Durch eine Umstellung der Datei kann es sein, dass noch diverse weitere Register sichbar sind oder es zB nur "Tabelle 1" ist. Je nach Bearbeitsungsstand ändert sich dies ständig. All meine Versuche in den bestehenden Code "ActiveWorkbook" mit anstatt des vorgewählten "Array" einzubringen sind leider gescheitert. Ich hoffe hier kann mir jemand helfen.
LG Jens
|