Automatisches Erstellen von PDFs - die Lösung

[HKindler]

Hi,

theoretisch würde in der Hauptroutine auch eine Schleife reichen. Dann braucht man auch kein If.

Code:

Option Explicit

Sub Export_To_PDF()
Dim sPath$, sFile$, aSheets(), item
'###### Hier bitte anpassen/ergänzen: Die Namen der Blätter, die Du exportieren möchtest
aSheets = Array("Bericht_A", "Bericht_B")
'###### Hier bitte anpassen: Wo sollen die PDFs abgelegt werden.
'###### So werden sie direkt im Verzeichnis Deines Workbooks abgelegt.
sPath = ThisWorkbook.Path

For Each item In aSheets
'##### Hier bitte anpassen: Der Dateiname wird aus Blattname & Datum zusammengesetzt
    sFile = sPath & "\" & item & "_" & Date
    Worksheets(item).ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFile, Quality:=xlQualityStandard
Next

End Sub

Vorteil: weniger Overhead
Nachteil: Sollte ein Blattname nicht vorhanden sein, gibt es einen Fehler.