mit den nachfolgenen Code speichere ich unterschiedliche Bereiche als pdf, vielen Dank an dieses Forum. Jetzt möchte ich beide Makros zusammenführen und durch eine Abfrage festlegen, welcher Bereich gespeichert werden soll.
Wenn in Zelle A8 des aktiven Blattes der Wert "Ja" steht soll der Bereich aus "SpeichernAlsPDF_mit" gespeichert werden.
Wenn in Zelle A8 des aktiven Blattes der Wert "Nein" steht soll der Bereich aus "SpeichernAlsPDF_ohne" gespeichert werden.
Kann mir bitte Jemand die beiden Makros zusammenführen.
Vielen Dank.
Sub SpeichernAlsPDF_mit()
Dim DateiName As String
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$75,$G$1:$L$43"
Const DateiPfad = "D:\Ordner01\Test\"
DateiName = DateiPfad & Format(Range("C3"), "00") & " - " & Format(Range("B1"), "YYYY") & " _
Rechnung" & " - " & Range("A3") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("EinAusgangsRech").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub SpeichernAlsPDF_ohne()
Dim DateiName As String
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$75"
Const DateiPfad = "D:\Ordner01\Test\"
DateiName = DateiPfad & Format(Range("C3"), "00") & " - " & Format(Range("B1"), "YYYY") & " _
Rechnung" & " - " & Range("A3") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("EinAusgangsRech").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
MFG, Andreas