Blatt als PDF-Datei abspeichern
WalterK
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr bezieht sich auf die Zelle AX1 und dort steht ein Datum im Format 01.01.2010
Ich möchte aber, das im PDFName das Datum im Format 2010.01 steht.
Wer kann mir diese kleine Änderung einbauen?
Hier noch der Codeteil:
Option Explicit
Sub PrintToPDF_Early_Arbeitszeitnachweis()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim Name As String
Dim MonatJahr As String
Name = Range("R1").Value
MonatJahr = Range("AX1").Value
'/// Change the output file name here! ///
sPDFName = "Arbeitszeitnachweis" & "_" & Name & "_" & MonatJahr & ".pdf"
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set pdfjob = New PDFCreator.clsPDFCreator
usw.
Besten Dank uns Servus, Walter