Speichername aus Zelle für Pdf export.

[zwoologe]

Hallo zusammen,

für mein bereits existierendes und funktionierendes Makro (Speichern unter- als 2 Seiten Pdf mit Datum als Namen) brauche ich noch zusätzlich
den dynamischen Text aus zwei Zellen, in meinen Fall G2 und K2 vom ersten Tabellenblatt, der dann mit im Speichernamen der Pdf Datei
stehen soll.

Das gewünschte Format wäre dann: G2K2DDMMYYYY.Pdf

Wenn das jemand von Euch richten könnte, fände ich das total knorke.

Gruß
zwoo

Code:

Sub PDF2Seiten()
'
' PDF2Seiten Makro
'

'
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ$("USERPROFILE") & _
       "\Desktop\ " & Format(Now, "DDMMYYYY") & ".pdf", _
       Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
       :=False, From:=1, To:=2
     
End Sub

[Steffl]

Hallo,

vielleicht so?

Code:

Sub PDF2Seiten()
'
' PDF2Seiten Makro
'

'
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ$("USERPROFILE") & _
       "\Desktop\ " & ThisWorkbook.Worksheets(1).Range("G2").Value & _
       ThisWorkbook.Worksheets(1).Range("K2").Value & Format(Now, "DDMMYYYY") & ".pdf", _
       Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
       :=False, From:=1, To:=2
      
End Sub

[RPP63]

Moin und nur ergänzend!
Durch Type:=xlTypePDF wird die Dateiendung .pdf bereits mitgegeben.
Daher ist & ".pdf" redundant, kann also ersatzlos entfallen.

Gruß Ralf

[zwoologe]

Hallo Steffl,

genau das habe ich gebraucht.  Viielen lieben Dank! :78:


Gruß
zwoo

---

Hallo Ralf,

danke für die Ergänzung.


Gruß
zwoo