|
Mach doch besser so, dann erübrigt sich jeder Kommentar (Aber wie eben am Anfang des Sub´s mit "Dim Vorname, Nachname, Dateiname as String" deklarieren)
KW$=Range("Codeblatt!B5")
Vorname=Range("Tabelle1!A1")
Nachname=Range("Tabelle1!B1")
Dateiname="NR_"+str(zähler)+KW$+"_"+Vorname$+"_"+Nachname$+".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname$, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
|