Office: Bestimmte Tabellenblätter auswählen und drucken

Hallo liebe VBA Spezialisten,

ich bin gerade dabei ein kleines Tool in Excel zu bauen und bin bis jetzt ohne VBA ausgekommen.

Jetzt geht es aber ums Ausdrucken und da kommt man an VBA nicht vorbei.

Folgende Situation:

1.Die Tabellenblätter "Deckblatt","Vorwort" und "Ausgabeübersicht" sollen bei Knopfdruck IMMER
ausgewählt und gedruckt werden.

2. Die Tabellenblätter "Ausgabe1","Ausgabe2",....."Ausgabe15" sollen nur ausgewählt und gedruckt werden wenn in Zelle A1 des jeweiligen Tabellenblattes eine 1 steht.

Ziele: Klick auf CommandButton -> Die Tabellenblätter werden ausgewählt-> der Druckdialog öffnet sich.

Wie ihr seht, habe ich schon etwas "rumprobiert" mit dem unten stehenden Code werden die Blätter Ausgabe1 + Ausgabe2 etc. aber immer ausgewählt und das möchte ich aber nicht


Private Sub CommandButton1_Click()
Sheets(Array("Deckblatt", "Vorwort", "Ausgabe1", "Ausgabe2", "Ausgabe-
Übersicht")).Select

Application.Dialogs(xlDialogPrint).Show
End Sub


Über einen kleinen Tip wäre ich euch sehr dankbar !!!!!!!!!!!!!!!!!!!!!!



MfG

Oliver

:)

 

Moin, Oliver,

versuch es doch bitte mal hiermit:

Code: