Hallo Oliver Schiller,
primitiv, aber sofort verständlich:
Private Sub CommandButton1_Click()
if Sheets("Ausgabe1").Cells(1, 1)="1" and Sheets("Ausgabe2").Cells(1, 1)="1" then
Sheets(Array("Deckblatt", "Vorwort", "Ausgabe1", "Ausgabe2", "Ausgabe-Übersicht")).Select
end if
if Sheets("Ausgabe1").Cells(1, 1)="1" and Sheets("Ausgabe2").Cells(1, 1)<>"1" then
Sheets(Array("Deckblatt", "Vorwort", "Ausgabe1", "Ausgabe-Übersicht")).Select
end if
if Sheets("Ausgabe1").Cells(1, 1)<>"1" and Sheets("Ausgabe2").Cells(1, 1)="1" then
Sheets(Array("Deckblatt", "Vorwort", "Ausgabe2", "Ausgabe-Übersicht")).Select
end if
if Sheets("Ausgabe1").Cells(1, 1)<>"1" and Sheets("Ausgabe2").Cells(1, 1)<>"1" then
Sheets(Array("Deckblatt", "Vorwort", "Ausgabe-Übersicht")).Select
end if
Application.Dialogs(xlDialogPrint).Show
End Sub
Gruß
Holger
Oliver Schiller schrieb am 26.05.2008 15:10:24:
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" und "Ausgabe2" sollen nur ausgewählt und gedruckt werden wenn in Zelle A1 des jeweiligen Tabellenblattes eine 1 steht.
Ziele: Klick auf CommandButten -> 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 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
|