[Checkbox] Makro - Tabellenblätter zu pdf
23.04.2019 10:32:00
gerald
bin relativ neu im VBA Umfeld unterwegs.
Mir geht es darum, eine große Exceldatei mit vielen Tabellenblättern in einzelne PDFs zu _
exportieren. Das ist mir mit folgendem Code soweit auch gelungen:
Sub pdfExport()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\Dateiordner\" & sh.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
End Sub
Da es eine sehr große Datei ist würde ich nun gerne ein zweites Makro erstellen, welches eine Checkbox mit allen Tabellenblättern öffnet und dem anwender erlaubt, genau anzuklicken, welche der (insgesamt ca 60) Tabellenblätter als pdf exportiert werden soll. Nach der Auswahl der Tabellenblätter in der Checkbox sollte der weitere Prozess automatisch ablaufen.
Könnte mir jemand mit dem Code aushelfen?
Vielen Dank und Gruß!
Gerald