Ausschließen von ActiveX Steuerelementen
12.04.2020 11:58:54
ActiveX
Sub saveToPDF()
Dim strFilename As String
strFilename = rngRange.Value & Format(Now(), "yyyymmdd hhmmss")
Sheets("Tabelle").Select
Sheets("Tabelle").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\123\Desktop\" & strFilename & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub