ich möchte in einer Excel-Datei, mehrere (aber nicht alle) Tabellen gleichzeitig auswählen und dann ausdrucken. Ich hatte es wie folgt probiert, leider ohne Erfolg. Die Fehlermeldung kam in der Zeile: Sheets(Array(Dokumente)).Select
Wer kann mir helfen?
Sub Drucken()
Dim Dokumente As String
Dim Tabelle As Worksheet
Dokumente = ""
For Each Tabelle In Worksheets
If Tabelle.Name <> "Tabelle1" And Tabelle.Name <> "Tabelle2" Then
If Dokumente <> "" Then
Dokumente = Dokumente & ", " & Chr(34) & Tabelle.Name & Chr(34)
Else
Dokumente = Chr(34) & Tabelle.Name & Chr(34)
End If
End If
Next
Sheets(Array(Dokumente)).Select
Sheets("Start").Activate
Application.ActivePrinter = "FreePDF XP auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub