Array zum Gruppieren von Sheets
31.07.2019 11:15:17
Sheets
ich versuche mit Hilfe von VBA bestimmte Tabellenblätter zu Gruppieren und als PDF zu speichern. Da aber die Tabellenblätter, die gruppiert werden sollen, variabel sind, habe ich versucht, die Namen der gewollten Tabellenblätter in einem variablen Array (Sheetspdf) mit variabler Größe darzustellen. Die Namen der Tabellenblätter, die ausgewählt werden sollen, stehen in einem separaten Tabellenblatt (Tabelle 9 bzw. Tabellenblattliste).
Bisher habe ich folgenden Code
Sub Pdf()
Dim Dateiname As String
Dateiname = "Dateiname"
Dim Sheetspdf() As Variant
Dim lngLastRow As Long
Dim i As Long
lngLastRow = Sheets("Tabellenblattliste").Cells(Rows.Count, 1).End(xlUp).Row
ReDim Sheetspdf(lngLastRow - 1) 'hier wird die größe neu festgelegt.
For i = 0 To lngLastRow
Sheetspdf(i) = Tabelle9.Cells(i + 1, 1).Text
Next i
Sheets(Sheetspdf).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _Dateiname & ".pdf", Quality _:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Ich glaube noch nicht, dass meine Vorgehensweise mit dem Loop, der die Namen der Tabellenblätter in das Array einfügt und der Befehl "Sheets (sheetspdf).select" zur Auswahl der im Array genannten Tabellenblätter, richtig bzw. gut sind.
Wäre super wenn mir jemand helfen könnte!!!
Vielen Dank im Voraus!
LG