Speichern mit Datum und Uhrzeit

[Remibet]

Hallo Leute,

ich habe in meiner datei einen Code hinterlegt, der die Datei in externen Ordner als PDF speichert. Funktioniert auch. Jedoch wird nur das Datum angezeigt und nicht die Uhrzeit. Er Speichert ab mit Datum und als Uhrzeit wird nur 00.00.00 angezeigt. Was mache ich falsch?

Gruß


Hier der Code:

Sub aktivesBlattToPdf()
ChDir "c:\pdf_2018\" 'anpassen 'oder thisworkbook.path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Range("F5").Value & Format(Date, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

[Fennek]

Hallo,

Zitat:

Range("F5").Value & Format(Date, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _

Die Funktion "Date" gibt das Datum, die Funktion "NOW" das Datum + Uhrzeit an.

mfg

[Remibet]

Das ging ja fix  

Funktiniert...Vielen Dank!!!!!! :18: