Clever-Excel-Forum

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. Thumbsupsmileyanim

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

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

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

Gruß Ralf

Hallo Steffl,

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

Gruß
zwoo

Hallo Ralf,

danke für die Ergänzung.

Gruß
zwoo

zwoologe

Steffl

RPP63

zwoologe