Hallo liebe Community,
ich benötige eure Hilfe mal....
Ich habe folgenden Code geschrieben:
Sub ABRECHNUNGPDF()
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = "c:\EXPORTPDF\"
SpeicherName = ActiveSheet.Range("A72") & "_" & Range("E72") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Mein Ziel war es, dass aktuelle Tabellenblatt als PDF gespeichert wird unter C:\ExportPdf.
Der Dateiname soll aus A72 und E72 gebildet werden. Leider erzeugt er keine PDF-Dateien und ich musste feststellen, dass ich einfach zu blöd bin.
Kann mir einer Helfen wo ich meinen Denkfehler habe.
Grüße und Dankeeeeeeeeeee
Czerno