Office: Excel 2007-Pflichtfeld Abfrage vorm Drucken

MadM4x · 30. November 2019

Hallo,

ich würde gerne bei einer Tabelle den Druck verhindern so lange gewisse Zellen keinen Inhalt haben. Also Pflichtfelder abfrage vor Druck.

Für eine Zelle habe ich es Mittlerweile mit folgendem Code hinbekommen:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

boVar = False
'Prüfen ob alle notwendigen Felder ausgefüllt sind, erst wenn diese ausgefüllt sind wird die Datei zum Drucken/Speichern freigegeben
'-----------------------------------------------------------------------------------------------------------------------------------

If ActiveSheet.Range("B3").Value = "" Then
MsgBox " Das Formular wurde nicht vollständig ausgefüllt.:" _
& vbCr & "" _
& vbCr & " Es müssen alle DropDown Felder sowie die folgenden Nr. ausgefüllt sein " _
& vbCr & "" _
& vbCr & " 1, 2, 3, 16, 22, 23" _
& vbCr & "" _
& vbCr & " Überprüfen Sie bitte deine Eingaben" _
& vbCr & "" _
& vbCr & " Ansonsten kann nicht gedruckt / gespeichert werden." _
& vbCr & "" _
& vbCr & "" _
& vbCr & "" _
& vbCr & "" _
& vbCr & " Gruß...", 54
Cancel = True
Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da ich aber erst seit kurzem etwas Intensiver mit Excel arbeite und mir VBA völlig Fremd ist habe ich mir diesen Code "zusammen gesucht".

Wie gesagt, er funktioniert nur leider bekomme ich es nicht hin eine weitere Zelle ab zu fragen.

Ein:
Code:

If ActiveSheet.Range("B3").Value = "" Or ActiveSheet.Range("B3").Value = "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

klappte leider nicht.

Kann mir da jemand vielleicht weiterhelfen?

Danke schon mal an alle....

VG

:)

Hajo_Zi · 2. Dezember 2019

Du verhöeicht 2x die gleiche Zelle.
Bei mir kommt kein Fehler.

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
änderrn.

Das ist nur meine Meinung zu dem Thema.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Meine Homepage Homeseite - Hajo's Excelseiten

MadM4x · 2. Dezember 2019

Sorry,

war noch aus der alten Datei.
Es soll natürlich nicht 2 mal die gleiche Zelle verglichen werden.

Code:

If ActiveSheet.Range("B3").Value = "" Or ActiveSheet.Range("B10").Value = "" Then
MsgBox " Das Formular wurde nicht vollständig ausgefüllt.:" _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei der einzelnen "If" Abfrage klappt es, mit der "Or" Abfrage leider nicht.

Hajo_Zi · 2. Dezember 2019

auch diese Zeile löst keinen Fehler aus, warum auch?

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

Mase · 2. Dezember 2019

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

bovar = False ' ist diese Variable denn auch deklariert?
'Prüfen ob alle notwendigen Felder ausgefüllt sind, erst wenn diese ausgefüllt sind wird die Datei zum Drucken/Speichern freigegeben
'-----------------------------------------------------------------------------------------------------------------------------------

If ActiveSheet.Range("B3").Value = "" Or ActiveSheet.Range("B10").Value = "" Then
MsgBox " Das Formular wurde nicht vollständig ausgefüllt.:" _
& vbCr & "" _
& vbCr & " Es müssen alle DropDown Felder sowie die folgenden Nr. ausgefüllt sein " _
& vbCr & "" _
& vbCr & " 1, 2, 3, 16, 22, 23" _
& vbCr & "" _
& vbCr & " Überprüfen Sie bitte deine Eingaben" _
& vbCr & "" _
& vbCr & " Ansonsten kann nicht gedruckt / gespeichert werden." _
& vbCr & "" _
& vbCr & "" _
& vbCr & "" _
& vbCr & "" _
& vbCr & " Gruß...", 54
Cancel = True
Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MadM4x · 5. Dezember 2019

Nabend,

mittlerweile habe ich es wie folgt hinbekommen:
Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

'Prüfen ob alle notwendigen Felder ausgefüllt sind, erst wenn diese ausgefüllt sind wird die Datei zum Drucken/Speichern freigegeben
'-----------------------------------------------------------------------------------------------------------------------------------
If ActiveSheet.Range("B3").Value = "" Or ActiveSheet.Range("F8").Value = "" _
Or ActiveSheet.Range("L10").Value = "" Then
MsgBox " Das Formular wurde nicht vollständig ausgefüllt.:" _
& vbCr & "" _
& vbCr & " Es müssen alle DropDown Felder ausgefüllt sein " _
& vbCr & "" _
& vbCr & " Überprüfe Formular Feld_Nr. 1, 2, 3, 16, 22, 23" _
& vbCr & "" _
& vbCr & " auf den richtigen Inhalt " _
& vbCr & "" _
& vbCr & "" _
& vbCr & " Ansonsten kann der Frachtbrief nicht gedruckt werden." _
& vbCr & "" _
& vbCr & "" _
& vbCr & "" _
& vbCr & "" _
& vbCr & " Gruß ", 54
Cancel = True
Exit Sub
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist der Code vom Aufbau her okay oder der könnte man ihn noch "optimieren"?

Die andere Sache ist die, dass ich den Code gerne mit der Möglichkeit erweitern möchte,
dass alle vorhandenen Activx Comboboxen vorm schließen der Excel Datei resettet werden.

Wie setze ich das am Besten um?
Und wie genau baue ich den neue Code in den alten ein?

Habe z.b diesen Code hier gefunden:

Code:
Code:

Sub ResetCB()
Dim oComBox As OLEObject

Application.EnableEvents = False

For Each oComBox In ActiveSheet.OLEObjects
If oComBox.Name Like "ComboBox*" Then
oComBox.Object.Text = ""
End If
Next

Application.EnableEvents = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur wenn der zum resetten der Comboboxen funktioniert müsste er ja so geändert werden das "befor.close" greift
und in den anderen mit Eingebaut werden kann.

Wäre schön wenn mir jemanden Sagen kann wie ich ne Combobox vorm Dokument schließen resette und wie der gesamte Code dann aussehen muss.

Danke schon mal an alle.

VG

Mase · 5. Dezember 2019

https://www.clever-excel-forum.de/Th...0383#pid180383

i++

Office: Excel 2007-Pflichtfeld Abfrage vorm Drucken

Excel 2007-Pflichtfeld Abfrage vorm Drucken

Excel 2007-Pflichtfeld Abfrage vorm Drucken

Excel 2007-Pflichtfeld Abfrage vorm Drucken

Excel 2007-Pflichtfeld Abfrage vorm Drucken - Similar Threads - Excel 2007 Pflichtfeld

Makros in Excel 2007 aktivieren

Druckproblem bei Excel 2007

HÃ¤ufigkeit in Tortendiagramm darstellen

Excel 2007, aus Textfeld kopieren

Umstellung von Office 2007 auf 2016

Excel 2007: prozentualer Vergleich zweier Werte als Liniendiagramm

Wenn funktion in VBA