Bei erfüllter Bedingung Tabellenblatt ausdrucken

Question

Hallo!

Ich sitze hier an einer Eingabemaske, woraus etwas ausgedruckt werden soll.

Also: Die Eingabemaske ist das Tabellenblatt "Eingabe".
Wenn dort in den Feldern C3 bis C7 und in B13 etwas eingetragen ist, soll das Blatt "Seite 1" ausgedruckt werden, wenn zusätzlich in B31 etwas steht, auch "Seite 2".
Gibt es die Möglichkeit, bei einer fehlenden Eingabe in C3 - C7 eine Fehlermeldung zu bringen?

Ich würde mich freuen, wenn Ihr mir hier einen Code vorschlagen könntet! Ich habe hier Excel 2000.

Vielen Dank und viele Grüße!
Dibbedabb

Answer 1

Moin,

Lege doch einmal folgenden Code auf einen CommandButton:

Sub MeinDruck()
Dim rngACell As Range
Dim blnNoPrintP1 As Boolean

With ThisWorkbook.Worksheets("Eingabe")
For Each rngACell In Union(.Range("C3:C7"), .Range("B13"))
If rngACell.Value = "" Then
blnNoPrintP1 = True
MsgBox "Pflichtfelder nicht komplett gefuellt", vbOKOnly + vbInformation, "Fehler"
Exit For
End If
Next rngACell

If Not blnNoPrintP1 Then
ThisWorkbook.Worksheets("Seite 1").PrintOut
If .Range("B31").Value <> "" Then
ThisWorkbook.Worksheets("Seite 2").PrintOut
End If
End If
End With

End Sub

"Seite 1" und "Seite 2" werden so zwar als jeweils ein extra DruckJob ausgegeben, aber das sollte bei einem echten PapierDrucker (Ausgabe erfolgt direkt auf StandardDrucker) nicht weiter stoeren. (Bei einem PDF-Printer wuerde das allerdings dann bedingen, dass die 2Files verschiedene Namen bekommen. Sonst wuerde Blatt2 halt Blatt1 wieder ueberschreiben. Ist PDF-Drucker gewuenscht, dann muessen wir den Code nochmal umstellen.)

Cu
TheBlackBird ®

Answer 2

Hallo!

Vielen Dank! Ich melde mich, wenn ich das mal ausprobieren konnte.

Viele Grüße
Dibbedabb