Arbeitsblatt als PDF
27.03.2017 11:25:58
Rainer
Könnte mal einer der Spezialisten einen Blick auf mein Makro werfen.
Ich generiere aus 2 Zellen einen Dateinamen der dann wie folgt aussieht:
P33 EF 500_1 27/03/2017 10:30 und in zelle G37 steht. Nun möchte ich das Arbeitsblatt
als PDF abspeichern. Blöderweise tut mir mein Makro diesen Gefallen nicht.
Private Sub CommandButton1_Click()
Dim DateiName As String
DateiName = "C\Eigene Dateien\Protokoll\" & " " & Range("G37")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Im voraus bereits Vielen Dank
Rainer