Microsoft Excel

Herbers Excel/VBA-Archiv

Blatt als pdf mit Datum Uhrzeit


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
  

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???
  

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
  

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

  

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

  

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

  

Betrifft: gerne... von: 1712864.html
Geschrieben am: 13.09.2019 11:43:07

Danke fuer die Rueckmeldung.

Schoenen Tag auch dir.

  

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
  

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

  

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

Beiträge aus dem Excel-Forum zum Thema "Blatt als pdf mit Datum Uhrzeit"