Anzeige
Archiv - Navigation
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If-Abfrage

If-Abfrage
20.03.2006 18:45:26
gert
Hallo Excel-Experten,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If-Abfrage
20.03.2006 19:24:49
Juergen
Hallo Gert...
versuche es mal so.
If Worksheets("Dateneingabe").Range("b84") = "j" Then
Sheets("Tabelle1").Select
Call drucken
End If
If Worksheets("Dateneingabe").Range("b81") = "j" Then
Sheets("Tabelle2").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,
Gruß Jürgen
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige