Aktives Blatt als PDF mit Zeitstempel – Codebibliothek

VBA

Sub AktivesBlattPDFZeitstempel()
    If ThisWorkbook.Path = "" Then Exit Sub
    Dim ziel As String
    ziel = ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" & Format(Now, "yyyymmdd_hhnnss") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ziel, Quality:=xlQualityStandard
    MsgBox ziel, vbInformation
End Sub

Hinweis: Prüfen Sie vor dem Export Druckbereich, Seitenformat und unzulässige Zeichen im Blattnamen.

VBAExcelPDFZeitstempel

← Zur Codebibliothek Unterstützung anfragen