|
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
|