Hallo Beltason,
ich glaube, du solltest die Beiträge richtig lesen.
Steffl = Stefan!!
Hallo,
läuft die Datei den ganzen Tag ununterbrochen? Wenn ja, versuchs mal so
Code:
Private datNurEinmal As Date
Sub aktivesBlattToPdf()
If datNurEinmal = Date Then MsgBox "Heute schon gebraucht": Exit Sub
datNurEinmal = Date
'MsgBox Date
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\info\Dropbox\Dokumente PDF\PDF Sicherung Tagesabschlu?\2020\01\" & _
Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "Vielen Dank f?r deine PDF Speicherung!"
End Sub
wenn nein, muss das Datum in eine Zelle geschrieben und geprüft werden.
Oh Entschuldigung.....war mir mit der falschen Brille auf der Nase entgangen
(30.01.2020, 18:35)WillWissen schrieb: [ -> ]Hallo Beltason,
ich glaube, du solltest die Beiträge richtig lesen.
Steffl = Stefan!!
Gibt's bei euch Vornamen mit "!" ?