Office: (Office 2016) Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Moin Zusammen,
ich hoffe Ihr könnt mir helfen, denn ich verzweifle so langsam
Ich habe bereits hier und im Internet gefühlt vieles durchgelesen, komme aber leider nicht weiter.

Ich möchte gerne im Excel einen bestimmten Bereich (A1:L57) per Makro, als PDF exportieren lassen, welches mit den Dateinamen "Bericht" und in der Zelle "J1" genannte Nummer im C:\Berichte\ gespeichert soll.

Hat evtl. jemand eine Idee?
Vielen Dank im Voraus :)

 

Ich habe mir da bereits etwas "gebastelt", das Funktioniert auch soweit auch, allerdings speichert er immer nur die gesamte Exceldatei als PDF, aber nicht "nur" den ausgewählte Bereich (A1:L57) als PDF

Übersehe ich etwas?

Sub Bericht_Seite_1()
'
Dim strPATH As String
Dim strFILE As String


With ActiveSheet
strPATH = "C:\Berichte\" 'Backslash am Ende!
MakeSureDirectoryPathExists strPATH

strFILE = strPATH & "Berichte_" & .Range("J1") & ".pdf"

End With


Dim wksPDF As Worksheet
Set wksPDF = ActiveSheet

Sheets("Berichte")Select .Range("A1:J57").ExportAsFixedFormat

wksPDF.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFILE, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End

Set wksPDF = Nothing

MsgBox ("Bericht gespeichert! "), vbOKOnly + vbInformation, "Info"

End Sub

 

Du sagst ja auch, dass das gesamte sheet genommen werden soll.

Code:

wksPDF.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFILE, _

probier mal an der Stelle

Code:

Sheets("Berichte").Range("A1:L57").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFILE, _

 

Vielen Dank DIZA :)