Dokument als PDF und Excel speichern

[Koppy83]

Hallo,

ich habe für unsere Feuerwehr einige Dateien erstellt die wir im Einsatz nutzen. Leider sind nicht alle am PC so fit, so das ich gerne manche Sachen automatisieren möchte.

Leider kenne ich mich mit VBA recht wenig aus und hab mir meine Befehle "zusammen" gegoogelt.

Momentan wird bei Makro-Ausführung das Dokument mit "Datum und Uhrzeit" und dem Arbeitsblattnamen im selben Ordner als PDF abgespeichert.

Ich möchte aber gerne, dass die neue Datei zuerst mit "Blattname_Datum_und_Uhrzeit" als PDF und EXCEL Datei abgespeichert wird. Idealerweise in einen Unterordner.

Ist so etwas überhaupt möglich?

Mein bisheriger Befehl lautet:

Dim Jetzt As Variant
Jetzt = Format(Now, "yyyy.mm.dd_hh.mm")
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & Jetzt & "_" & ActiveSheet. _
Name & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile <> False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True ' wenn nicht angezeigt werden soll False

Dankeschön schon mal für jegliche Hilfe

[Koppy83]

Hat niemand eine Idee? Es würde mir auch schon sehr helfen wenn nur der Dateiname beim abspeichern als "Blattname_Datum_Uhrzeit" geändert werden könnte.