Pflichtfeld
31.08.2020 19:51:17
R
ich habe schon viel hier gelernt und abgeschaut - danke an alle die sich hier so engagieren!
Über die Suche komme ich leider nicht weiter, daher bitte ich um Hilfe.
Also: Ich möchte per Button eine Auswahl von Blättern einer Arbeitsmappe drucken. Das funktioniert auch schon einwandfrei.
Jetzt möchte ich noch absichern, daß auf einem bestimmten Blatt definierte Pflichtfelder ausgefüllt sind. Die Abfrage scheint auch bereits zu funktionieren.
Was nicht funktioniert: Falls die Felder nicht ausgefüllt sind, soll das Druck-Makro abgebrochen werden.
So sieht das bislang aus:
'das ist die Frage nach Pflichtfeldbefüllung:
Dim c As Range
For Each c In Worksheets("Tabelle1").Range("c7,c8,c9,c10,c12,c44,d44,c46,c47,c48")
If c = "" Then
Cancel = True
MsgBox "Not all mandatory fields are filled in!", und da beißt es bei nun bei mir aus. vbcancel funktioniert nicht
Exit For
End If
Next
'Abfrage ob gedruckt werden soll (pfd-Format) das funktioniert alles
If MsgBox("You are going to print the report as a pdf-file. Ensure that you have set a filter in sheet 'Tabelle2'! Close all open pdf-files before continuing! Ready?", vbYesNo) = vbYes Then
... undsoweiter und sofort
Vielen Dank im Voraus,
RS