Wenn Abfrage für Sheet Druck
26.10.2006 23:23:11
Andy
ich möchte gerne abhängig von der Größe eines Wertes in der Zelle F1 auf dem Sheet "Start" eins von zwei anderen Sheets per Button drucken. Wenn der Wert kleiner gleich 30 ist, dann soll Blatt 1 gedruckt werden ansonsten soll Blatt 2 gedruckt werden.
Kann mir jemand weiterhelfen wie ich dort die Abfrage automatisch einbauen.
Druckbefehl für Blatt1
Private Sub Seite_unter30_drucken_Click()
Sheets("unter30").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'zurück zur Startseite
Sheets("Start").Select
End Sub
Druckbefehl für Blatt 2
Private Sub Seite_ueber30_drucken_Click()
Sheets("ueber30").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'zurück zur Startseite
Sheets("Start").Select
End Sub
Gruß
Andy