Hallo Experten,
Der Anwender hat die Möglichkeit mehrere Tabellen nacheinander
(jedoch mit einer Auswahl) auf dem Bildschirm anzuschauen.
Wenn die erste Auswahl zutrifft wird das Programm beendet.
Dies soll nicht der Fall sein. Es soll jede Abfrage abgearbeitet werden
Was mache ich falsch???
If Range("b79") = "j" Then
' 1. Ausdruck
Sheets("Vereinbarung1").Visible = True
Sheets("Vereinbarung1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, preview:=True
End If
If Range("b80") = "j" Then
' 2. Ausdurck
Sheets("Vereinbarung2").Visible = True
Sheets("Vereinbarung2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, preview:=True
End If
Welchen Befehl muss ich statt den IF-Befehl verwenden??
Viele Grüsse Gert