PDF mit Makro erstellen mehrere Sheets
mirko Bäger
Ich habe eine Datei mit mehren Sheets, bestimmte Sheets (nicht alle) soll ein PDF Dokument erstellt werden und am besten gleich dort abgespeichert werden wo die Excel-Datei liegt.
Und der Name des PDF´s soll dann aus "B2" und "B4" des jeweiligen Sheets ausgelesen werden, Optional aktuelles Datum.
Hier mein Code... der nicht wirklich funktioniert ....
Sub PDFerzeugen()
Dim strName As String
Dim ws As Worksheet
strName = Range("B7")
For Each ws In Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strName & ws.Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Next ws
End Sub