If-Abfrage
20.03.2006 18:45:26
gert
ich habe dass Problem, dass immer auf Tabelle1 beim Ausdruck ausgeführt wird,
wenn B84 und B81 auf "j" gesetzt sind.
Es wird nich auf die Abfrage B81 abgezweigt.
Wie muss ich nachfolgenden Code abändern, dass beide Ausdrucke ausgeführt werden.
If Worksheets("Dateneingabe").Range("b84") = "j" Then
Sheets("Tabelle1").Select
Call drucken
End If
If Worksheets("Dateneingabe").Range("b81") = "j" Then
Sheets("Tabelle2").Visible = select
call drucken
End If
Private Sub drucken()
If Worksheets("Dateneingabe").Range("b170") = "Bildschirm" Then
If CheckBox1 Then ActiveWindow.SelectedSheets.PrintOut from:=1, To:=1,
If CheckBox2 Then ActiveWindow.SelectedSheets.PrintOut from:=2, To:=2,
Viele Grüsse
Gert