ich benötige bitte eure Hilfe - bin am verzweifeln.
Es geht darum, alle Blätter bis auf eins (den Master) einer Mappe einzeln unter individuellem Dateinamen (in jedem Blatt in Zelle I2) unter einem bestimmten Pfad (in jedem Blatt in Zelle I1) als pdf zu speichern.
Sollte der angegebene Order noch nicht existieren, soll das Makro diesen auch anlegen.
Bis jetzt bin ich soweit gekommen:
Sub PrintAndSavePdf()
Dim strFileName As String
Dim strPath As String
Dim ws As Worksheet
strFileName = Range("I2") & ".pdf"
strPath = Range("I1")
For Each ws In ActiveWindow.SelectedSheets
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPath & strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next ws
End Sub
Das funktioniert leider nicht, ich bekomme die Fehlermeldung, dass etwas mit dem Datei-Export nicht klappt.Alternativ habe ich den folgenden Code:
Sub PrintAndSavePdf()
Dim strFileName As String
Dim strPath As String
strFileName = Range("I2") & ".pdf"
strPath = Range("I1")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPath & strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Call Recall
End Sub
Sub Recall()
PrintAndSavePdf
End Sub
Der funktioniert, was den Dateiexport unter angegebenem Pfad angeht, ackert sich aber nur an dem aktiven Arbeitsblatt ab und erstellt keinen Ordner, wenn der noch nicht existiert.Kann mir bitte jemand helfen?
Vielen Dank!
Viele Grüße
Dörte