Automatisch speichern als pdf mit Datum

Hallo zusammen,

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 u. A in diesen Forum "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

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

Dankeschön schon mal für jegliche Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub einseinszwo() Dim Jetzt As Variant, vntFile As Variant Jetzt = Format(Now, "yyyy.mm.dd_hh.mm") vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" & Jetzt & "_" _ & ".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 End If End Sub

Sub ExportAsPDF() Dim filePath As String Dim fileName As String ' Pfad und Dateiname der aktuellen Excel-Datei festlegen filePath = ThisWorkbook.Path & "\" ' Neuen Ordner erstellen mit aktuellem Datum und Uhrzeit (falls noch nicht vorhanden) Dim folderName As String folderName = Format(Now(), "dd-mm-yyyy_hhmmss") If Dir(filePath & folderName, vbDirectory) = "" Then MkDir filePath & folderName End If ' Dateiname für die PDF-Datei festlegen fileName = "Tabelle_" & Format(Now(), "dd-mm-yyyy_hhmmss") & ".pdf" ' Tabelle als PDF exportieren ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ filePath & folderName & "\" & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ExportAsPDF End Sub

Beliebteste Forumthreads (12 Monate)

Automatisch speichern als pdf mit Datum

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisch speichern als pdf mit Datum

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread