Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Blatt als pdf mit Datum Uhrzeit

Bild


Betrifft: Blatt als pdf mit Datum Uhrzeit
von: MaBlu

Geschrieben am: 13.09.2019 09:08:59
Hallo ich habe ein Makro das mir das Blatt als pdf speichert, mit dem Bezug aus Zelle C3 und Blattname z.B. Tabelle4_13.09.2019_.pdf!
Das möchte ich ändern weiss aber nicht wie?
ich würde gerne das Datum, Uhrzeit und Blattnamen haben
so 2019.09.13_Tabelle4.pdf
was muss ich im Makro ändern?
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & "_" & _
ActiveSheet.Range("C3").Value & "_" & _
Mid(Range("b2"), 7) & ".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

Für eure Unterstützung vielen Dank
Gruss MaBlu
Bild

Betrifft: AW: Blatt als pdf mit Datum Uhrzeit
von: 1712813.html
Geschrieben am: 13.09.2019 09:18:37


so 2019.09.13_Tabelle4.pdf
wo ist da die Uhrzeit???
Bild

Betrifft: AW: Blatt als pdf mit Datum Uhrzeit
von: 1712817.html

Geschrieben am: 13.09.2019 09:24:17
Wenn du es wirklich so haben wills: Datum Uhrzeit_Tabellenname.pdf, also 2019.09.13_09:22_Tabelle4.pdf
dann: 

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")

Gruss Torsten
Bild

Betrifft: AW: Blatt als pdf mit Datum Uhrzeit
von: 1712838.html

Geschrieben am: 13.09.2019 10:23:55
Hallo Torsten
Vielen Dank für die schnelle Antwort
ich musste den Doppelpunkt zwischen hh:mm in einen Punkt abändern dann wollte es speichern, leider habe ich im unteren Teil vom Makro noch was falsches es bricht ab und markiert ab If alle Zeilen gelb?
Kannst du mir hier eventuell helfen?
Gruss MaBlu
Bild

Betrifft: AW: Blatt als pdf mit Datum Uhrzeit
von: 1712854.html
Geschrieben am: 13.09.2019 11:19:02
Hallo,
ja das mit dem Doppelpunkt hatte ich nicht bedacht. Geht nicht in Dateinamen. Sorry.
Der Fehler, der angezeigt wird koennte sein, dass das Blatt leer ist? Wenn nichts zu exportieren ist, dann kommt der Fehler.
Gruss Torsten

Bild

Betrifft: AW: Blatt als pdf mit Datum Uhrzeit
von: 1712860.html
Geschrieben am: 13.09.2019 11:37:08
Hallo Torsten
Danke für deine Hilfe
ja genau das war's zum Testen hatte ich ein leeres Blatt genommen, wenn es befüllt ist geht es.
Besten Dank und schönen Tag
Gruss MaBlu

Bild

Betrifft: gerne...
von: 1712864.html
Geschrieben am: 13.09.2019 11:43:07
Danke fuer die Rueckmeldung.
Schoenen Tag auch dir.

Bild

Betrifft: AW: gerne...
von: 1712911.html

Geschrieben am: 13.09.2019 13:57:52
Hallo Torsten
habe soeben bemerkt dass ich doch noch den Text in die Namensgebung aus Zelle C2 brauche.
z.B. 2019.09.13_13_55_Text C2_Tabelle4.pdf
was muss ich dann noch ändern?
Ansonsten funktioniert es absolut perfekt Danke im Voraus
Sub saveAsPDF()
'speichert Aktives Blatt als PDF in gleichen Ordner!
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
End If
End Sub

Gruss MaBlu
Bild

Betrifft: AW: gerne...
von: 1712912.html
Geschrieben am: 13.09.2019 14:02:31


vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & Jetzt & "_" & ActiveSheet.Range("C2").Value & "_" & ActiveSheet.Name & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")

Bild

Betrifft: AW: gerne...
von: 1712919.html
Geschrieben am: 13.09.2019 14:13:11
Hallo Torsten
unkompliziert und mega schnell vielen Dank
klappt ausgezeichnet, macht echt Spass mit euch
zu Kommunizieren :)
ein schönes Wochenende
Gruss MaBlu

Excel-Beispiele zum Thema "Blatt als pdf mit Datum Uhrzeit"
Fortlaufende Uhrzeit in Zelle und Statusleiste zeigen Anwendung von DBMAX auf Datum und Uhrzeit
Zellen in Abhängigkeit der aktuellen Uhrzeit markieren Beim Überfahren einer Grafik mit der Maus Uhrzeit anzeigen
TextBox-Eintrag von Industrie- und Uhrzeit wandeln
Bewerten Sie hier bitte das Excel-Portal