Druckdialog abbrechen
13.10.2015 15:32:45
Frank
wie kann ich nach einer IF-Schleife einen Druckdialog abbrechen? Ich habe eine Prüfung. Wenn _ die genannten Auswahlfelder nicht mit einem Kreuz gefüllt wurden, soll der Anwender gefragt werden, ob er weitermachen möchte:
Sub Auswahl_treffen()
Dim x As Double
Dim Nachricht As String
Dim auswahl As Integer
Dim Antwort As Integer
'Festlegung des zu überprüfenden Bereiches aus Auswahlkreuzen
x = Application.CountA(Sheets("Einreicherformular").Range("I36:N36"), Sheets(" _
Einreicherformular").Range("I38:N38"), _
Sheets("Einreicherformular").Range("I40:N40"), Sheets("Einreicherformular").Range("I42:N42") _
_
_
, Sheets("Einreicherformular").Range("I49:N49"), _
Sheets("Einreicherformular").Range("I51:N51"), Sheets("Einreicherformular").Range("I54:N54") _
_
_
, Sheets("Einreicherformular").Range("I57:N57"), _
Sheets("Einreicherformular").Range("I60:N60"))
'Prüfung, genau 9 Kreuze gesetzt wurden. Zwei Kreuze pro Zeile wurden dabei
'durch eine Gültigkeitsprüfung in Excel ausgeschlossen.
If x 9 Then
Nachricht = "Es wurden nicht alle Kreuze bei Einschätzungen und Auswirkungen"
Nachricht = Nachricht & "gesetzt. Bist Du sicher, dass Du mit der Bearbeitung "
Nachricht = Nachricht & "fortfahren möchtest?"
Nachricht = Nachricht + vbNewLine & vbNewLine
auswahl = vbYesNo + vbQuestion
Antwort = MsgBox(Nachricht, auswahl)
'Wenn die Antwort ja ist, wird der Vorgang fortgesetzt. Ist die Antwort nein, wird zur
'ersten Zelle der Einschätzungen und Auswirkungen zurückgekehrt.
If Antwort = vbYes Then
Exit Sub
Else
Sheets("Einreicherformular").Select
End If
End If
End Sub
Die Prüfung läuft gut, wenn ich das Blatt wechsel.
Private Sub Worksheet_Deactivate()
Call Auswahl_treffen
End Sub
Aber bei einem zu startenden Druck
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Auswahl_treffen
End Sub
wird zwar gefragt, ob weitergemacht werden soll. Egal ob ja oder nein, der Druckdialog wird angezeigt.
Wie kann ich es schaffen, dass bei einem nein kein Druckdialog angezeigt wird?
Gruß
Frank