Hallo,
dann musst diese Zeile im Code
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDatei, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, ignoreprintareas:=False, _
openafterpublish:=True
ändern:
Worksheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDatei, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, ignoreprintareas:=False, _
openafterpublish:=True
Statt Tabelle1 musst du natürlich den Namen deines Arbeitsblattes nehmen. Beachte bitte, dass der Namen in Anführungszeichen stehen muss.
Gruß
M.O.