Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Tabellenblätter auswählen

Mehrere Tabellenblätter auswählen
22.04.2005 13:14:57
Verena
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Tabellenblätter auswählen
22.04.2005 14:54:35
Luc:-?
Hallo Verena,
Select hat bei Worksheets eine besondere Funktion - es kann auf Hinzufügungsmodus gestellt wdn indem man sein Argument False setzt (True ist Ersetzungsmodus). Damit kannst du dir den fehlerhaften Array-Versuch sparen wie folgt:

Sub Drucken()
Dim Tbl As Worksheet
With ActiveWorkbook
.Sheets("Start").Activate
For Each Tbl In .Sheets
If Tbl.Name <> "Tabelle1" And Tbl.Name <> "Tabelle2" Then
Tbl.Select False
End If
Next Tbl
End With
Application.ActivePrinter = "FreePDF XP auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End 

Sub </code>
Grüße Luc :-?

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige