Sub Aktueller_Pfad()
Range("T28") = ActiveWorkbook.Path
Range("T29").Value = Range("B15").Value
End Sub
Sub PDF_Freigabe_Heisskanal()
Dim Pfad As String
Dim Pfad_Ueberordner As String
Dim Index As String
Dim Datum As String
Pfad = Range("B5").Value
Pfad_Ueberordner = Range("T28").Value
Index = Range("B6").Value
Datum = Range("T29").Value
Sheets("Freigabe Heisskanal").Select
ChDir _
"" & Pfad_Ueberordner & "\" & Pfad & "_Datenaustausch\Kunde\Ausgang"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"" & Pfad_Ueberordner & "\" & Pfad & "_Datenaustausch\Kunde\Ausgang\Freigabedokument_" & Pfad & "_" & Format(Datum, "yyyy-mm-dd") & "" & Index & "" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Eingabemaske").Select
End Sub