Macro abrrechen wenn Pflichtfeld leer
30.09.2007 13:06:39
Paul
habe mit eure Hilfe dieses Macro (s.u.) zusammen gebaut um zu verhindern, das unvollständie Formulare gedruckt werden und die Nutzer auch über Hinweisboxen auf die Fehler hingewiesen werden.
Das verhindern der unvollständig gedruckten Formulare funktioniert, d.h. nur wenn alle Felder gefüllt sind kann das Formular gedruckt werden. Aber leider kommen die MsgBoxen auch wenn die Felder gefüllt sind.
Kann mir jemand sagen, wie ich das Macro umschreiben muß, dass
1. die Boxen nur erscheinen wenn das betreffende Feld leer ist
2. Das Makro abbricht, soblad eine Feld nicht i.O. ist und der Nutzer die ensprechende Hinweisbox bestätigt hat.
Währe supi wenn mir jemand helfen könte!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If IsEmpty(Range("ReDat")) Then Cancel = True
MsgBox "Bitte Rechnungsdatum angeben!"
If IsEmpty(Range("ReNr")) Then Cancel = True
MsgBox "Bitte Rechnungsnummer angeben!"
If IsEmpty(Range("ReSum")) Then Cancel = True
MsgBox "Bitte die Rechnungssumme angeben!"
End Sub