28.11.2022, 15:32
Hallo, VBA Experten,
mit dem folgenden VBA Code wird eine PDF-Datei erstellt und der Datei Name aus der Zelle "B4" und "C4"
ausgelesen. In "B4" steht das Datum "HEUTE()" , das Zellenformat ist "M", also Monatsname als Zahl weil
die erstellten PDF's jeden Monat nacheinander abgespeichert werden, bis jetzt habe ich das händisch angepasst.
Der Code gibt den Dateinamen 28.11.2022 November aus, lieber wäre mir wenn der Name 11 November ausgegeben würde.
Da muss natürlich die passende Formatierung mit in die Syntax, ich bekomme es aber nicht hin.
Vielleicht kann mir ja einer den richtgen Code hierfür nennen.
Vielen Dank aus dem schönen Rheinland
Gruß Jo
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Test-Ordner\Test Auszüge 2021\2022\" & Range("B4") & " " & Range("C4") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
mit dem folgenden VBA Code wird eine PDF-Datei erstellt und der Datei Name aus der Zelle "B4" und "C4"
ausgelesen. In "B4" steht das Datum "HEUTE()" , das Zellenformat ist "M", also Monatsname als Zahl weil
die erstellten PDF's jeden Monat nacheinander abgespeichert werden, bis jetzt habe ich das händisch angepasst.
Der Code gibt den Dateinamen 28.11.2022 November aus, lieber wäre mir wenn der Name 11 November ausgegeben würde.
Da muss natürlich die passende Formatierung mit in die Syntax, ich bekomme es aber nicht hin.
Vielleicht kann mir ja einer den richtgen Code hierfür nennen.
Vielen Dank aus dem schönen Rheinland
Gruß Jo
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Test-Ordner\Test Auszüge 2021\2022\" & Range("B4") & " " & Range("C4") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True