VBA - mehrere Blätter selektieren

[Rüdiger Göddemeyer]

Hallo zusammen,

ich habe eine Excelmappe, in der ich eine beliebige Anzahl zusätzlicher
Arbeitblätter erzeugen kann. Der Druck mehrerer Blätter soll
übersichtlich über eine Userform mit Listenfeld erfolgen. Im Listenfeld
werden die in der Mappe enthaltenen Blätter aufgelistet:

Private Sub cmdDruck_Click()
Dim x As Integer
With Me.lbBlaetter
For x = 0 To .ListCount - 1
If .Selected(x) = True Then
'alle in der Listbox markierten Blätter selektieren
End If
Next x
End With
Unload Me
'Druckdialog aufrufen
End Sub

Wie kann ich per VBA mehrere beliebige Blätter slektieren?

Schon mal vielen Dank für die Hilfe.

Rüdiger

[Reiner Wolff]

Hallo Rüdiger,

Post by Rüdiger Göddemeyer
Wie kann ich per VBA mehrere beliebige Blätter slektieren?

Die Mehrfachselektion funktioniert dort zB so:
Worksheets(Array(1,3)).select

Greetinx aus Kiel
Reiner

[Rüdiger Göddemeyer]

Post by Reiner Wolff
Hallo Rüdiger,

Post by Rüdiger Göddemeyer
Wie kann ich per VBA mehrere beliebige Blätter slektieren?

Worksheets(Array(1,3)).select
Greetinx aus Kiel
Reiner

Hallo Reiner,

funktioniert! Danke für die Hilfe.

Grüße
Rüdiger

[Reiner Wolff]

Moin Rüdiger,

Post by Rüdiger Göddemeyer

Post by Reiner Wolff

Post by Rüdiger Göddemeyer
Wie kann ich per VBA mehrere beliebige Blätter slektieren?

Worksheets(Array(1,3)).select

funktioniert! Danke für die Hilfe.

Bitte gerne.
Achso, hatte ich ganz vergessen zu schreiben:
Das war für mich auch neu.
Allerdings hat mir der Makro-Rekorder die Lösung verraten.

Gruß aus Kiel
Reiner