Habe folgendes Problem:
Vor dem Drucken einer Exceldatei sollen die selektierten Blattnamen in eine Variable eingelesen werden und, nach dem Ausführen diverser Operationen, wieder selektiert werden, damit auch alle selektierten Blätter gedruckt werden.
Der Code sieht ungefähr so aus:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sh As Worksheet
Dim Zaehler As Long
Dim Markiert As Variant
Zaehler = 0
Markiert = """"
For Each sh In ActiveWorkbook.Windows(1).SelectedSheets
Zaehler = Zaehler + 1
If Zaehler = 1 Then
Markiert = Markiert + sh.Name + """"
Else
Markiert = Markiert + "," + " " + """" + sh.Name + """"
End If
Next
-------------------------------------------------------------------
zwischen oberem und unterem Code werden diverse Arbeiten ausgeführt
-------------------------------------------------------------------
Sheets(Array(Markiert)).Select
Und genau in der obigen letzten Codezeile kommt der Debugger und meint, der Index sei ausserhalb des zulässigen Bereiches.
Weiss jemand wieso?
Die Variable "Markiert" enthält nach der Zuweisung der Blattnamen folgenden String:
"Blatt1", "Blatt2", "Blatt3"
mfg, Andreas