If ... Then ... Else
22.03.2007 13:42:00
Wilfried
ich nutze folgenden Code und möchte diesen gerne erweitern.
Wenn in der entsprechenden Zelle eine 5 steht, soll nicht gedruckt werden, sondern die nächste Datei geöffnet werden.
Leider bekomme ich die Syntax nicht hin
Sub BAB_FB2()
berichtsauswahl = Range("Druck!e5")
ansicht = Range("Druck!b1")
For W = 3 To 7
Windows("Druckmenü.xls").Activate
Sheets("Dialog").Select
Range("b2").Select
ActiveCell.FormulaR1C1 = W
Windows("Druckmenü.xls").Activate
Workbooks.Open Filename:=Range("dialog!c2"), _
UpdateLinks:=0
Sheets(berichtsauswahl).Select
'mein Problem: Wenn Ansicht = 5
'Dann soll nicht gedruckt werden sondern die Schleife mit Next weiterlaufen
If ansicht = 5 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Saved = True
ActiveWindow.Close
Next
Sheets("Druck").Select
Range("a1").Select
End Sub
Gruß
Wilfried
Anzeige