hab die Lösung selbst Geschafft
Sub PDF_Speichern()
Dim Speicherpfad As String
Sheets(Array("Minutes of Meeting")).Select
Speicherpfad = Sheets("Minutes of Meeting").Range("K4").Value
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Speicherpfad & "MOM" & "_" & Format(Now, "dd-mm-yyyy-hh.mm.ss") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
|