|
Hallo zusammen,
nachstehenden Code ( unter Excel365) habe ich über den Makrorekorder aufgezeichnet. Ich möchte aber das er diese PDF nicht immer unter 1 speichert und die alte Datei überschreibt, sondern das immer eine neue Datei gespeichert wird und die alte Datei erhalten bleibt.
Könnt ihr mir dabei helfen da ich absoluter beginner in VBA bin.
Danke schon jetzt für eure Unterstützung.
Sub Punch1()
'
' Punch1 Makro
'
'
ActiveSheet.Range("$A$9:$P$500").AutoFilter Field:=16, Criteria1:="="
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"08_Qualität_Doku_Prüfpr\8.12_Installationsprozesse\1" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveSheet.Range("$A$9:$P$500").AutoFilter Field:=16
End Sub
|