Adresse des Hyperlinks wird bei Export d

Sub link_setzen(mcr As Integer, praefix as String)
Dim Dateipfad As String
Dim Nummer As String
Dateipfad = ActiveWorkbook.Path
Nummer = CStr(mcr - 1)
Dateipfad = Dateipfad & "\20" & Mid(ActiveSheet.Cells(11, 4), 5, 2) & "\"  & praefix & Format(Nummer, "000") & "\"
Range("D28").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Dateipfad, TextToDisplay:="Ordner" & " " & ActiveSheet.Cells(11, 4).Value
Shell "explorer.exe" & " " & Dateipfad, vbNormalFocus
End Sub

Public Sub create_approved_pdf(praefix as String)
Dim Dateipfad As String
Dim Nummer As String
Dim timestamp
Dim day, month, year As String
Dateipfad = ActiveWorkbook.Path
Nummer = CInt(Right(ActiveSheet.Cells(11, 4), 3))
Dateipfad = Dateipfad & "\20" & Mid(ActiveSheet.Cells(11, 4), 5, 2) & "\" & Left(praefix, 4) & Mid(ActiveSheet.Cells(11, 4), 5, 2) & "-" & Format(Nummer, "000") & "\"
timestamp = Now
year = Mid(timestamp, 7, 4)
month = Mid(timestamp, 4, 2)
day = Mid(timestamp, 1, 2)
With ActiveSheet.PageSetup
.CenterHeader = ActiveSheet.Cells(11, 4)
.HeaderMargin = 0.5
.Orientation = xlPortrait
.PrintArea = "$B$2:$E$76"
'.PrintTitleRows = ActiveSheet.Cells(5, 5)
.Zoom = False
.FitToPagesTall = False
.FitToPagesWide = 1
End With
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Dateipfad & CStr(year) & "-" & CStr(month) & "-" & CStr(day) & "-" & Left(praefix, 4) & Mid(ActiveSheet.Cells(11, 4), 5, 2) & "-" & Format(Nummer, "000") & ".pdf", _
IgnorePrintAreas:=False, _
IncludeDocProperties:=True, _
OpenAfterPublish:=True
End Sub