Office: Tabellen nur drucken wenn bestimmete Zellen gefüllt sind.

Hallo zusammen,

ich brauche Hilfe bei einem, meiner meinung nach, etwas umfangreicheren Problem.

Ich habe eine Datei mit 37 Tabellenblättern, die alle mit einem Grundinhalt gefüllt sind. Die Tabellen sind nicht durchnummeriert sondern haben alle unterschiedliche Namen.

Tabelle 1 und Tabelle 2 werden immer gedruckt

Tabelle 3 wird nur gedruckt wenn in einer von 20 Zellen dieser Tabelle ein Wert steht
(z.B.: A5,B5,C5, F5,G5,H5, K5,L5,M5, A10.......)

Tabelle 4 wird nur gedruckt wenn in einer von 20 Zellen dieser Tabelle ein Wert steht
(z.B.: A5,B5,C5, F5,G5,H5, K5,L5,M5, A10.......)

Bei Tabelle 3 und 4 reicht es wenn jeweils in einer der Zellen ein Wert steht, also eine oder-Verknüpfung.

Sollte das nicht klappen kann ich auch einfach innerhalb der Tabelle die Zellen überwachen und in einer Zelle einen Wert ausgeben lassen. Dann müsste die Tabelle gedruckt werden wenn in dieser Zelle ein Wert steht. so wie ab Tabelle 5

ab Tabelle 5 (also alle anderen) werden nur gedruckt sobald in einer bestimmten Zelle (nennen wir sie ruhig A1) ein Wert steht.

Das ganze geschieht über einen button den ich schon erstellt habe. Ich bekomme die selektierung unter den oben genannten Bedingungen nicht hin und bitte deshalb um Hilfe.

Gruß

Michael

:)

 

Moin, Michael,

für die Tabellen 1 und 2 gilt PrintOut (uneingeschränkt). Bei den Tabellen 3 und 4 muss geklärt werden, ob die Tabellenfunktion ANZAHL2 für die vorgegebenen Bereiche eine Fundstelle liefert (in VBA WorksheetFunction.CountA mit den gleichen Parametern wie die Tabellenfunktion).

Meinst Du, dass Du mit diesen Hinweisen eine Lösung selbst schaffst (notfalls den Makro-Rekorder zur Hilfe heranziehen oder nachfragen)? *wink.gif*

 

Hi

tut mir Leid, ich habe mir zwar vorgenommen mich mit VBA genauer zu befassen aber mir fehlt diesen Monat noch die Zeit dazu. wäre nett wenn du mir dazu was schreiben könntest.
Ich möchte das ganze selektieren und dann die Auswahl drucken. Und alles über den Button.

Danke und Gruß

Michael

 

Moin, Michael,

so z.B., wobei der Ausdrcuk über PrintOut zu erreichen ist, PrintPreview stellt die Seitenansicht dar:

Code:

Wenn dies nur in einer Mappe angewandt werden soll, kann man auch in DieseArbeitsmappe das Ereignis Workbook_BeforePrint einsetzen, um den Druck zu steuern.

Das Erlernen von VBA braucht meiner Meinung nach etwas mehr Zeit als den verbleibenden Rest eines Monats wie Oktober. *wink.gif*

 

Danke! ich werde das gleich mal testen.
Das es länger dauert ist mir klar, ich meinte nur das ich diesem Monat nicht dazu komme und nächsten anfange *wink.gif*

Gruß

Michael

 

Hi,

habe das mal getestet und einige Fehlermeldungen bezüglich Select bekommen also case ohne Select case...
deshalb habe ich es wie folgt editiert. jetzt kommt leider die Meldung Next ohne For und da bin ich raus. Kannst du mir nochmal unter die Arme greifen?

Code:

 

Moin, Michael,

den ersten Beitrag fand ich wegen der Leerzeichen übersichtlicher und habe diesen bearbeitet, den zweiten dann in die "Tonne getreten".

Einmal schreiben, was man auswerten will, reicht aus. Die äußere Schleife ist eine For Next, also sollte die letzte Anweisung eine Next sein. Code ist ungetestet:

Code:

 

Hi, Danke für die Hilfe!

Leider klappt es noch nicht so ganz. Habe die Beziehung ein bisschen verändert, da in den vorher angenommenen Zellen formeln hinterlegt sind und bei countA so der wert immer >0 ist.

Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
Select Case wsSheet.Name
Case "Deckblatt", "Übersicht"
wsSheet.PrintPreview
' wsSheet.PrintOut
Case "H_K(1)"
If N66 > 0 Then
wsSheet.PrintPreview
' wsSheet.PrintOut
End If
Case "H_K(2)"
If N66 > 0 Then
wsSheet.PrintPreview
' wsSheet.PrintOut
End If
Case "1(R)", "1(Ge)", "1(Gr)", "2(R)", "2(Ge)", "2(Gr)", "3(R)", "3(Ge)", "3(Gr)", "4(R)", "4(Ge)", "4(Gr)", "5(R)", "5(Ge)", "5(Gr)", "6(R)", "6(Ge)", "6(Gr)", "7(R)", "7(Ge)", "7(Gr)", "8(R)", "8(Ge)", "8(Gr)", "9(R)", "9(Ge)", "9(Gr)", "10(R)", "10(Ge)", "10(Gr)", "11(R)", "11(Ge)", "11(Gr)"
If D38 > 0 Then
wsSheet.PrintPreview
' wsSheet.PrintOut
End If
Case Else
End Select
Next wsSheet
End Sub

So klappt es allerdings leider nicht. Vielleicht kann mir ja jemand helfen.
Gruß

Michael

 

Moin, Michael,

den Bereich der Formeln durchlaufen und prüfen, ob der Inhalt einen Wert darstellt, also statt WorksheetFunction.CountIf eine Schleifenfunktion einsetzen.