Check Routine vor Druck
01.04.2014 15:42:44
Bernd
Lange ist es her, aber nun benötige ich wieder mal Eure
professionelle VBA Hilfe.
Habe mit dem Makrorekorder folgendes aufgezeichnet:
Sub Drucken()
' Drucken Makro
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("AW7").Select
End Sub
Ich hätte nun aber gerne, dass bevor gedruckt wird, so eine Art Checkroutine überein von mir erstelltest Formular läuft, ob alle notwendigen Felder ausgefüllt worden
sind.
Das heisst, sollte auf eines vergessen werden, so sollte vor einem Ausdruck eine
Fehlermeldung kommen, dass auf das Feld vergessen wurde und dieses zwingend augefüllt
werden muss, um zu drucken.
Meine Felder wären:
Feld BK3 muss grösser als 0 sein (dann ist es OK)sonst "Halt, zuerst ausfüllen von Feld A"
Entweder muss BD7 oder BD9 mit einem X versehen sein sonst "Halt, zuerst ausfüllen von Feld B"
Entweder muss B30 oder M30 mit einem X versehen sein sonst "Halt, zuerst ausfüllen von Feld C"
Entweder muss B37 oder B39 oder B41 mit einem X versehen sein sonst "Halt, zuerst ausfüllen von Feld D"
Sollte es nur zu einem fehlenden X kommen bzw. der Wert von Feld A kleiner oder gleich ist, dann seine Fehlermeldung erscheinen. Die Reihenfolge der Prüfung sollte auch so wie oben angeführt (A,B,C,D)statt finden.
Ich hoffe ich habe mich Verständlich ausgedrückt und warte sehnlich wieder auf Eure
Super Hilfe.
Leider kann ich Heute nicht mehr hier rein sehen um es zu Probieren und auch ein Feedback zu geben, werde dies aber morgen nachholen.
Dann Danke ich all jenen die mir Helfen, und wünsche noch einen schönen Dienstag,
lg Bernd