|
Liebes Forum
ich habe lange gesucht aber nichts gefunden. Ich hoffe jemand kann moir helfen. Die Problemstellung ist folgende.
Ich möchte aus einer Exceldatei, die ca. 200 Reiter enthält einige davon drucken. Die Auswahl der Reiter, die gedruckt werden soll, möchte ich über eine Formel in Excel festlegen, da es auch 50 Reiter sein können und diese je nach Auswahl unterschiedlich sind. Daher eine Formel, die einen Strang erzeugt, wie die Auflistung von Sheets oder Reitern in VBA. Folgendes Makro habe ich gebaut, aber es funktioniert nicht. Nur bei einem Reiter, wenn ich z. B. in die Zelle F17 auf dem Sheet Variablen_VZ den Reiter „V1“ eingebe, der auch existiert, so wird dieser gedruckt. Das Problem ist daher, dass ich dass Array mit dem Wert bzw. der Auflistung aller Reiter nicht füllen kann. Ich habe es in der Zelle mit verschiedenen Varianten versucht (mit und ohne Anführungszeichen). Die Fehlermeldung lautet immer: Index außerhalb des gültigen Bereiches.
Sub Druck_Reiter()
Dim Reiter As String
Dim Dateiname As String
Dim Speicherort As String
Reiter = Worksheets("Variablen_SZ").Range("F17")
Dateiname = Worksheets("Variablen_SZ").Range("F18")
Speicherort = Worksheets("Variablen_SZ").Range("F19")
Sheets(Array(Reiter)).Select
Sheets(Reiter).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Speicherort & Dateiname & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Wenn hier jemand eine Lösung hat, wäre das fantastisch. Danke
|