ich habe mir gerade einen Code zusammengeschustert (und gegoogelt) um bestimmte Tabellenblätter meiner Dienstplantabelle als PDF abzuspeichern. Das der so nicht funktioniert hab ich mir bei meinen VBA Kenntnissen denken können. Aber ich habe schonmal alle mir wichtigen Parameter zusammengetragen. Könnt ihr mir helfen ihn zum Laufen zu bekommen?
Private Sub CommandButton2_Click()
Sheets(Array("Woche 1", "Woche 2", "Woche 3", "Woche 4")).Select
ActiveWondow.ExportAsFixedFormat
Type=xlTypePDF
Filename = Range("AH1").Value
Quality = xlQualityStandard
IncludeDocProperties = True
IgnorePrintAreas = False
OpenAfterPublish = True
ChDir ThisWorkbook.Path
End Sub
Die Tabelle kann ich leider aufgrund der Uploadbegrenzung nicht beifügen...Vielen Dank!
Paul.