VBA: Tabellenblätter als PDF speichern
15.05.2019 13:52:13
Gerald
eine Frage zu einem Thema wo schon viel diskutiert wurde, ich jedoch nicht bei meinem Problem weiter gekommen bin.
Ich würde gerne aus einer Exceltabelle alle Tabellenblätter einzeln als pdf speicher, außer die letzten 3, da diese nur Infos zur Berechnung enthalten, die man nicht als pdf braucht.
Mein Code sieht wie folgt aus:
Sub pdfexport()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & sh.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
End Sub
Das speichert allerdings alle Tabellenblätter ab. Da die letzten 3 Blätter extrem viele Daten enthalten, bricht das Makro dort mit Fehlermeldung ab.
Ist es möglich den Code so abzuändern, dass die letzten 3 Tabellenblätter gar nicht erst angesprochen werden?
Danke und Gruß,
Gerald