Noch ein Tippfehler gefunden: Dateiname und NICHT Dateiname$
DIM KW, Vorname, Nachname, Dateiname as String
....
....
....
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
|