PDFs auf Basis Tabellennamen in Range
31.01.2020 08:07:33
Dome
Gegeben eine Arbeitsmappe mit diversen Tabellen (leeren und nicht-leeren). Das unten stehende Makro erstellt mir ab Tabelle 25 jeweils ein PDF pro Tabelle. So weit, so gut.
Wie bekomme ich es nun hin, dass das Makro mir nur jene Tabellen als PDF erstellt, welche in Tabelle1 in Range O3:O20 stehen? (Der Bereich O3:O20 enthällt alle Tabellennamen)
Sub pdf_erstellen_II()
Dim i As Integer
Dim RNG As Range
Dim zeile As Long
Dim druckbereich As String
Application.ScreenUpdating = False
For i = 25 To Worksheets.Count
On Error Resume Next
With Worksheets(i)
Set RNG = Columns(15)
zeile = WorksheetFunction.Match(Worksheets(i).Name, RNG, 0)
druckbereich = Intersect(RNG.Offset(, 1), Rows(zeile))
.PageSetup.PrintArea = Replace(druckbereich, ";", ",")
End With
Worksheets(i).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & Worksheets(i).Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
Application.ScreenUpdating = True
End Sub
LG
Dome