Array variabel befüllen für PDF-Erstellung
20.05.2015 16:21:14
Heiko
Sub print_PDF()
Dim FileName As Variant
Dim DetailName As String
Dim PDF_auswahl As Integer
DetailName = Worksheets("PDF").Cells(2, 24).Value
PDF_auswahl = Worksheets("PDF").Cells(1, 22).Value
FileName = ThisWorkbook.Path & "\" & DetailName
Debug.Print "Create PDF: " & FileName
Select Case PDF_auswahl
Case 2
'nur Seite 1
Sheets(Array("I.Overview")).Select
If FileName False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=FileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Case 3
'Seite 1+2+variabel
Sheets(Array("I.Overview ", " II. Detailed view ","plus weitere, abhängig von Bedingung" )). _
_
Select
mein Problem liegt an dieser Stelle, wie bekomme ich es hin, dass in diesem Array _
nur die jeweils mit Daten gefüllten Tabellenblätter in das PDF übernommen werden ? (plus _
Tabelle 3 bis X, sofern in der jeweiligen Zelle D10 des Tabellen blattes nicht 'No Applicable Data Found. steht). Bisher kann ich so ein Array nur fix füllen. Könnt ihr mir einen Tipp geben wie dies variabl funktioniert?
'Alternative Frage: Kann ich auch ohne Array ein PDF aus mehreren variablen 'Tabellenblättern _
_
erstellen?
If FileName False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=FileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Case Else
End Select
Sheets("PDF").Activate
End Sub
danke für die Hilfe
Heiko