Fehlercode 400

Sub Speichern_als_PDF()
Dim KW As Integer
Dim Abteilung As String
Dim Schicht As String
Dim Datum As String
Dim Dateipfad As String
Dim Dateiname As String
Datum = ActiveSheet.Range("B2").Value
KW = ActiveSheet.Range("B3").Value
Abteilung = ActiveSheet.Range("B4").Value
Schicht = ActiveSheet.Range("B5").Value
Dateipfad = ThisWorkbook.Path
Dateiname = "G:\MU_MU-L-ALLGEMEIN\02 Schichtbericht\Archiv\" & "Schichtbericht_" &  _
Abteilung & "_" & Schicht & "_KW_" & KW & "_" & Datum & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub