Pflichtfelder

Hallo Leute
bin etwas in Eile daher noch mal kurz mein Hilferuf:
Ich möchte verhindern , das ein einzelnes Blatt aus einer Datei gedruckt wird, wenn nicht alle Pflichtfelder ausgefüllt sind, die Lösung für Pflichtfelder in der gesamten Datei habe ich bereits, aber wenn ich jetzt ein anderes Blatt drucken will kommen die gleichen MsgBoxen, auch wenn dieses jetzt zu druckende Blatt nichts mit den Pflichtfeldern zu tun hat.
So sieht der Code in "DieseArbeitsmappe" zur Zeit aus nur sollten die Prüfung nur erfolgen wenn das Sheet "AbRe" gedruckt werden soll:
Option Explicit


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If IsEmpty(Range("ReDat")) Then
Cancel = True
MsgBox "Bitte Rechnungsdatum angeben!"
Exit Sub
End If
If IsEmpty(Range("ReNr")) Then
Cancel = True
MsgBox "Bitte Rechnungsnummer angeben!"
Exit Sub
End If
If IsEmpty(Range("ReSum")) Then
Cancel = True
MsgBox "Bitte die Rechnungssumme angeben!"
Exit Sub
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "Blattname1" If IsEmpty(Range("ReDat")) Then Cancel = True MsgBox "Bitte Rechnungsdatum angeben!" Exit Sub End If Case "Blattname2" If IsEmpty(Range("ReNr")) Then Cancel = True MsgBox "Bitte Rechnungsnummer angeben!" Exit Sub End If Case "Blattname3" If IsEmpty(Range("ReSum")) Then Cancel = True MsgBox "Bitte die Rechnungssumme angeben!" Exit Sub End If Case Else 'do nothing End Select End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name "AbRe" Then Exit Sub If IsEmpty(Range("ReDat")) Then Cancel = True MsgBox "Bitte Rechnungsdatum angeben!" Exit Sub End If If IsEmpty(Range("ReNr")) Then Cancel = True MsgBox "Bitte Rechnungsnummer angeben!" Exit Sub End If If IsEmpty(Range("ReSum")) Then Cancel = True MsgBox "Bitte die Rechnungssumme angeben!" Exit Sub End If End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name "AbRe" Then Exit Sub If IsEmpty(Range("ReDat")) Then Cancel = True MsgBox "Bitte Rechnungsdatum angeben!" End If If IsEmpty(Range("ReNr")) Then Cancel = True MsgBox "Bitte Rechnungsnummer angeben!" End If If IsEmpty(Range("ReSum")) Then Cancel = True MsgBox "Bitte die Rechnungssumme angeben!" End If End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "Abre", "Blattname2", "Blattname3" 'Alle Blätter nur mit ausgefüllten Pflichtfeldern gedruckt werden dürfen If IsEmpty(Range("ReDat")) Then Cancel = True MsgBox "Bitte Rechnungsdatum angeben!" Exit Sub End If If IsEmpty(Range("ReNr")) Then Cancel = True MsgBox "Bitte Rechnungsnummer angeben!" Exit Sub End If If IsEmpty(Range("ReSum")) Then Cancel = True MsgBox "Bitte die Rechnungssumme angeben!" Exit Sub End If Case Else 'do nothing End Select End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread