Moi Moi ihr lieben - 

ich hob folgendes anliegen:

Ich versuche einen Range.Bereich als pdf abzusichern und möchte nun keinen pfad angeben sondern die file automatisch mit datum & uhrzeit
im überordner absichern - egal an welchem rechner und wo der ordner liegt

Kann das überhaupt funktionieren?

 

Sub SaveActiveSheetsAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"

'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub