VBA
29.01.2020 10:16:16
Dome
Ich exportiere aus einem Workbook mehrere Worksheets in einzelne PDFs. Das funktioniert so weit so gut, siehe Code:
Sub pdf_erstellen_III() 'Alle, aber einzelne PDFs
Dim i As Integer
For i = 2 To Worksheets.Count
With Worksheets(i).PageSetup
.PrintArea = "Worksheets(i).Name!$A$1:$C$50;Worksheets(i).Name!$E$1:$G$50; _
Worksheets(i).Name!$I$1:$K$50;Worksheets(i).Name!$M$1:$O$50"
End With
Worksheets(i).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & Worksheets(i).Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Next
End Sub
Nun würde ich gerne die PrintArea dynamisch gestalten, und zwar habe ich dazu in der 1. Mappe (welche nicht exportiert wird) eine Range "B10:C12" (in Spalte B stehen die Mappen-Namen, in Spalte C die Druckbereiche, z.B. $A$1:$C$50;$E$1:$G$50) definiert.SOLL: Code geht Mappe für Mappe durch, sucht den Namen innerhalb der Range und nimmt den entsprechenden Druckbereich und erstellt das PDF.
Kann man das allenfalls mit Intersect und Offset lösen?
Besten Dank für Eure Feedbacks.
LG
Dome