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
|