Sheet als PDF speich. und Hyperlink in Zelle
05.04.2018 03:56:33
Dietmar
mit folgendem Code speichere ich ein Sheet als PDF in den gleichen Ordner ab, in dem sich auch das Workbook befindet.
Soweit so gut.
Da es sich um ein Formular handelt, das ich viele Male verwende, möchte ich die gespeicherten PDFs aus einem anderem Sheet des gleichen Workbooks heraus per Hyperlink direkt öffnen können.
Dazu möchte ich eine Hyperlink-Sammlung anlegen, indem ich den jeweils erzeugten Link in die jeweils nächste leere Zeile schreibe.
Was mir fehlt ist ...
der Code-Schnipsel mit dem der Speicherort des erzeugten PDFs als Hyperlink in eine Zelle geschrieben wird; sagen wir Range A1.
Die Anpassung der Codierung für den Übertrag in die Sammlung kriege ich dann hin.
Wie müsste der Code für einen Hyperlink-Eintrag in Range A1 ergänzt werden?
Sub PDF()
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Range("I7").Text & "-" & Range("I8").Text & "-" & Range( _
"I9").Text, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Herzlichen Dank vorab!
VG
Dietmar