Makro mit Speichernamen anpassen
07.03.2023 07:00:40
Hans
ich habe in meiner Datei ein Makro, welches die Datei unter einen Namen speichert, der in einer Zelle (A42) eingetragen ist.
Der Speichername wird aus dem Blatt Eingaben in Zelle A42 erstellt aus dem Tabellenblatt Rechnung eine PDF Datei generiert, die dann anschließend ausgedruckt werden kann.
Damit die Datei (PDF) gespeichert werden kann, verwende ich diesen Code:
private Sub CommandButton4_Click()
Dim strFileName As String
strFileName = "C:\MGD Recycling\Rechnungen\" & Range("A42").Value & ".pdf"
ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Funktioniert super das ganze.
Nun zu meiner Frage;
Ich habe in der Zelle H34 ein Datum erstellt und zwar in dem Format =Heute(),
dann die Zelle mit JJJJ Formatiert, denn ich möchte gerne meine Dateien in das Verzeichnis
C:\MGD Recycling\Rechnungen\2023\SPEICHERNAME speichern.
Das bekomme ich nicht hin! (hab schon 1000 Möglichkeiten ausprobiert - und GOOGLE zum verzweifeln gebracht)
Im Ordner "C:\MGD Recycling\Rechnungen" befinden sich diverse Unterordner von 2023 bis 2033, deshalb muss der Speicherort natürlich flexibel sein.
Könnt ihr mir bitte helfen, dass ich das Makro entsprechend anpassen kann?
Vielen lieben Dank für eure Hilfe
Hans