Information/Anweisung aus Array Einzelschritt
13.03.2015 12:45:40
Erich
Als absoluter vba-Anfänger versuche ich aus einem xls mit n Tabellen eine bestimmte Anzahl als einzelne pdf's zu speichern. Grundsätzlich habe ich es mit Hilfe aller möglichen Foreneinträgen geschafft, wenn mich nicht noch zwei Dinge stolpern liessen.
1. Druckbereich zu definieren - die Anweisungen sind in der jeweiligen Tabelle in der Zelle B1 hinterlegt. Ich kriege es einfach nicht hin, dass es auch für den 2. Durchgang ff funktioniert.
2. Namensgebung der pdf's mit Zellbezug in der jeweiligen Tabelle --> Zelle B2. Auch hier wird es wohl in eine ähnliche Richtung gehen wie bei 1.
Der Code besteht aus den beiden obgenannten Schritten (p) für den Druckbereich und (i) für die pdf-Speicherung.
Bei (i) möchte ich den Teil & arrSheets(i) & durch den Zellbezug ersetzen.
Ich hoffe, es kann mir jemand weiterhelfen. Danke im Voraus.
Erich
Code:
Sub Druckbereich()
Application.ScreenUpdating = False
Dim arrSheets() As Variant
arrSheets = Array("1", "2", "3", "4", "5")
For p = LBound(arrSheets) To UBound(arrSheets)
Sheets(arrSheets(p)).PageSetup.PrintArea = "$D$4:$W$" & Range("$B$1")
Next p
For i = LBound(arrSheets) To UBound(arrSheets)
Sheets(arrSheets(i)).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & "Meldeformular" & "_" & arrSheets(i) & "_" & Format(Date, "MMM YYYY") _
_
& ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next i
End Sub