Select Methode - Arbeitsblätter wählen
03.07.2016 17:54:06
chri
Hallo!
Ich hab eine kleine Funktion die per drücken eines Buttons nicht anderes macht als mehrere Sheets der gerade aktiven Arbeitsmappe zu wählen und als eine einzige PDF-Datei zu exportieren.
Welche Sheets zu wählen sind, steht in einer Tabelle in dieser Arbeitsmappe.
Da ich immer wieder lese, dass die Select-Methode wenn möglich zu vermeiden ist - oder es meist bessere Lösungen gibt, würde ich gerne fragen, wie ich diese Aufgabe lösen könnte ohne select zu benutzen:
Ich schreibe in mein Array alle Namen der Blätter die ins PDF sollen, wähle dann diese Blätter:
ThisWorkbook.Sheets(ArrayPrint).Select
und dann exportiere ich die Datei:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
meinPfadUndDateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Bin dankbar für jeden Hinweis!