27.08.2019, 23:35
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
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