---

Hallo Leute,

folgendes Problem: Ich möchte mittels VB/VBA unter EXCEL mehrere Tabellen selektieren und zum Drucken schicken. Dies kann über folgende Selektion erfolgen :

    Sheets(Array("Tabelle2", "Tabelle3")).Select

Wie kann ich über das Programm dieses Array füllen? Hat so etwas schon mal jemand gemacht?

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ulf,

hoffe ich habe dich richtig verstanden, meinst Du sowas?

Gruss Nancy
--

Option Explicit

Sub allSheets()
Dim i As Long
Dim all As Long
Dim shArray() As Long

all = ThisWorkbook.Worksheets.Count
ReDim shArray(1 To all)
On Error Resume Next

  For i = 1 To all
    shArray(i) = i
  Next i
  ThisWorkbook.Worksheets(shArray).Select
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

danke für den Tipp. Hat funktioniert und du hast alles richtig verstanden. Habe ich mich etwa so undeutlich ausgedrückt?

Grüsse und ein schönes Wochenende
Ulf

[Diese Nachricht wurde von Ulf_K am 18. Juli 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ulf,

nun mich hat nur das 'mehrfach' bissel irritiert,
weil's ja alle sind 

Dir auch schönes WE

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP