VB - Excel Makro, drucken unter Bedingung
Hallo zusammen
ich habe eine Frage bezüglich Excel Makros, habe lange ausprobiert und viele Möglichkeiten getestet, jedoch ohne Erfolg! Nun läuft mir langsam die Zeit davon und ich möchte euch gerne um Hilfe bitten.
Habt Ihr eine Idee für ein Makro in Excel welches drucken unter bestimmten Bedingungen zulässt, konkretes Beispiel:
Background::
Tabellenblatt "Stammdaten" (Sammelblatt für alle Informationen und die Makrobuttons für die gesamte Arbeitsmappe
Problem::
Tabellenblatt "Grundeigentum" via Makro ansteuern, dieses Tabellenbaltt drucken wenn in Zelle x oder/und in Zelle y der Zellenwert <>0 ist. Ansonsten nicht drucken.
Dieser Ablauf sollte auf weitere Tabellenblätter ausgeweitet werden können, wo wiederum andere Zellen als Bedingung für <>0 definiert werden.
Der Druck sollte zudem über den Defaultprinter geschehen sowie unter Berücksichtigung der Seiteneinrichtung (vor definierter Druckbereich) evtl. sind die vorhanden Seiteneinrichtungen dann im Makro nicht speziell zu vermerken, aber da habe ich leider nicht viel ahnung davon was genau definiert werden muss.
Um eine konstruktive Antwort wäre ich euch sehr verbunden. Danke schon im Voraus für eure Bemühungen.
Grüsse Andreas
Antwort schreiben
Antwort 1 von Hajo_Zi vom 19.05.2021, 12:46 Options
Hallo Andreas,
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Tabelle1"
If Range("A1") = "" Or Range("A2") = "" Then Cancel = True
End Select
End Sub
Gruß hajo
Antwort 2 von Carteluno vom 19.05.2021, 17:16 Options
Hei hajo, danke dir vielmals - hat mir super geholfen, habe das Or noch durch And geändert und jetzt wird der druck nur gestoppt wenn das gar niergens etwas steht bzw. 0
Grüsse Andreas