3.3k Aufrufe
Gefragt in Tabellenkalkulation von
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

2 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
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
0 Punkte
Beantwortet von
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
...