|
Guten Tag zusammen,
ne ganz einfache Frage aber komm gerade nicht weiter. Gibt es eine Möglichkeit per VBA alle Tabellenblätter, jeweils als seperate PDF abzuspeichern? Das Ziel soll es sein, dass die PDFs so benannt werden, wie die Tabellenblätter lauten.
Ich habe es bereits erfolgreich hinbekommen, dass ich separate Excel-Files erhalte, mit dem nachfolgenden Code:
Sub Einzelne_Tabellen()
Dim oWs As Worksheet
On Error Resume Next
For Each oWs In ActiveWorkbook.Worksheets
oWs.Copy
With ActiveWorkbook
.SaveAs oWs.Name
.Close False
End With
Next oWs
End Sub
Wie stelle ich es nun an, dass ich am Besten unter Ergänzung einiger Zeilen, meinen bestehenden Code so verändere, dass ich statt einzelnen Excel-Files, einzelne PDFs erhalte?
Ich würde mich über jegliche Art von Unterstützung freuen.
|