Wie löse ich dieses Problem. Danke schon mal
Sub aktivesBlattToPdf()
ChDir "c:\Temp\" 'anpassen 'oder thisworkbook.path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Sub speichern_tabelle_in_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Dein ZielOrdner\" & Sheets("Tabelle1").Range("A1").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Gruß