Error 400
29.03.2017 10:38:07
Franky
habe folgenden fehler und zwar funktionier bei mehreren PCs ein Makro zum seichern von PDF´s reibungslos, aber bei einigen PCs kommt immer die Fehlermeldung 400 und zwar bei folgendem Code:
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
Viele Dank schonmal im vorraus.
Grüße
Franky
Anzeige