Nur 1x Klick in Zelle erlaubt!!

[WillWissen]

Hallo Beltason,

ich glaube, du solltest die Beiträge richtig lesen.

Steffl = Stefan!!

[Steffl]

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.

[Beltason]

Oh Entschuldigung.....war mir mit der falschen Brille auf der Nase entgangen

[snb]

Hallo Beltason,

ich glaube, du solltest die Beiträge richtig lesen.

Steffl = Stefan!!

Gibt's bei euch Vornamen mit "!"   ?