Hallo Matthias,
wenns Dir syntaktisch unübersichtlich wird, teile die einzelnen Probleme auf.
Erstelle Dir eine Variable, welchen den Dateinamen aufnimmt. Bspw:
Dim sFilename as String
Weise der Variablen einen Wert zu:
sFilename = "\\SBS-SERVER\Daten\...Email-Transfer\" & Cells(21,36).Value
Jetzt mal mit ner Ausgabe zwischenprüfen, ob Du einen konformen Dateinamen erzeugst:
Msgbox sFilename
'oder
Debug.Print sFilename
Wenn das ok ist, setzt Du die Variable an die richtige Stelle der Parameterliste der .ExportFileFormat-Methode
ActiveSheet.Range("A1:AF50").ExportAsFixedFormat xlTypePDF, sFilename
'oder leserlicher
ActiveSheet.Range("A1:AF50").ExportAsFixedFormat _
Type:=XlFixedFormatType.xlTypePDF, _
FileName:=sFilename
Hinweis:
Lass Dich von dem Unterstrich nicht irritieren. Der dient lediglich als Zeilenumbruch.
|