18.02.2018, 13:31
Hallo liebe Freunde,
kann mir jemand bei diesem Code helfen:
Leider erstellt er auch, wenn ich auf Abbrechen klicke eine PDF Datei mit dem Dateinamen FALSCH.pdf,
das soll er nicht tun.
Sub aktivesBlattToPdf()
Dim strName As String
strName = Application.GetSaveAsFilename( _
fileFilter:="pdf Files (*.pdf), *.pdf")
If strName <> "" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End If
End Sub
kann mir jemand bei diesem Code helfen:
Leider erstellt er auch, wenn ich auf Abbrechen klicke eine PDF Datei mit dem Dateinamen FALSCH.pdf,
das soll er nicht tun.
Sub aktivesBlattToPdf()
Dim strName As String
strName = Application.GetSaveAsFilename( _
fileFilter:="pdf Files (*.pdf), *.pdf")
If strName <> "" Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End If
End Sub