Office: bestimmte Tabellenblätter mit Schaltfläche drucken (wenn Kontrollkästchen aktiviert)

Hallo Zusammen,

Ich möchte mit einer Schaltfläche auf Tabelle1 den Befehl geben, dass die Tabelle2 und Tabelle10 aufjedenfall gedruckt werden soll und die anderen Tabellen nur, wenn auf Tabelle1 z.B. das Kontrollkästchen "Tabelle4" angekreuzt ist.

Ist das denn überhaupt möglich? Ich arbeite zum ersten Mal mit Makros und bin daher über jede Hilfe und jeden Vorschlag dankbar.

P.s.: Ich arbeite mit einem MacBook (falls es da etwaige Unterschiede geben sollte).

Vielen Dank.

Liebe Grüße
Meike

 

Moinsens!

Das Beispiel im Anhang enthält 10 CheckBox-Elemente auf "Tabelle1", die mit der Eigenschaft "LinkedCell" ihren Wert auch im Blatt spiegeln. Darunter befindet sich ein Button, der die gewünschten Tabellen als "Druck in Datei" im Verzeichnis "C:\temp\" ablegt.

Die Schleife geht alle 10 Blätter durch, setzt dabei die Variable "p" für 1 immer auf "nein", für 2 und 10 immer auf "ja" und für alle anderen abhängig vom Wert der entsprechenden "LinkedCell" der Checkbox. Auskommentiert ist die Alternative, wenn man nicht mit "LinkedCell" arbeiten kann / will, die CheckBox direkt über ihren Namen anzusprechen.

Ich hoffe, das ist so direkt auf den Mac übertragbar...

Gruß, Michael

 

Hey Michael,

erstmal danke für deine schnelle Antwort!

ich glaube leider, dass Mac keine ActiveX-Steuerelemente unterstützt. Deine Checkboxen sind für mich daher wie Bilder, die ich nicht aktivieren kann. Ich habe mich deshalb immer auf die jeweilige verknüpfte Zelle (worin wahr bzw. falsch steht) bezogen.
Könnte man das ganze auch hierüber steuern? Vllt mit einer If-Bedingung? (Ist sicher nicht so schön wie deine Variante)

Ich stelle mir das so vor:
Drucke Tabelle 2 und Tabelle 10 immer (!) (Deckblatt und Schluss) und
Wenn C3 = "True" dann Tabelle 3
C4 = "True" dann Tabelle 4
.....

Es wäre schön, wenn die Reihenfolge (Tabelle 4 vor Tabelle 10) beim Druck eingehalten werden könnte.

Vielleicht hast du hierfür auch einen Vorschlag. Vielen Dank für die Unterstützung.

Grüßle Meike

 

Moinsens!

Genau _das_ macht der Code ja jetzt eigentlich. Die "LinkedCell" sagt dem Steuerelement, wo es den Wert spiegeln soll, der den Zustand der CheckBox darstellt. Wenn also die CheckBox "true" st, steht in der entsprechenden Zelle ein "wahr". Das geht aber auch umgekehrt: Wenn man in die Zelle ein "falsch" einträgt, wird die CheckBox auf "false" gesetzt.

Und der hinter dem Button liegende Code fragt in der jetzigen Version die Zellen ab, nicht die Steuerelemente. Von daher ist an der Stelle keine Änderung notwendig.

Die Frage ist nur, wie kriegst Du den Code gestartet? Denn der Button ist auch ActiveX und dürfte dementsprechend auch keine Funktion haben, oder?

Ich hab in die Mappe mal eine 2. Variante eingebaut: Die Zellen E2:E11 reagieren auf Doppelklick und werden mit "[ X ]", also so einer Pseudo-CheckBox, gefüllt, parallel dazu wird die Spalte daneben mit "wahr" bzw. "falsch" gesetzt. Der Button darunter ist ein Formularsteuerelement. Das Makro dahinter ist das gleiche wie vorher, nur daß ich es in ein allgemeines Modul verlagert habe, um es mit diesem Button verknüpfen zu können. (Den anderen Button links habe ich deaktiviert, aber das macht für Dich dann ja wahrscheinlich eh keinen Unterschied.)

Versuch mal, ob das eine Alternative für Dich wäre.

(Na toll, jetzt ist die Mappe 107 kb und somit zu groß für den direkten Upload. Deswegen als zip...)

Gruß, Michael

 

Hallo Michael,
danke für deine Mühe.
Da ich noch bei zwei weiteren Themen angeeckt bin, bin ich jetzt auf Windows umgestiegen.
Mit deiner ersten Variante kann ich gut weiter arbeiten. Jetzt noch ein kleines Anliegen.
Ist es möglich das Ganze als pdf auf dem Desktop zu speichern? :)
Viele Grüße

 

Moinsens!

Zumindest in den neueren Versionen kann Excel direkt als PDF exportieren. Da ändert sich nur die "printout" Zeile:

Code:

s.ExportAsFixedFormat _    Type:=xlTypePDF, _
    Filename:="C:\temp\" & t & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Und hier müßtest Du noch den Ziel-Pfad, jetzt "C:\temp\", anpassen. Wenn's direkt auf den Desktop soll, dann ist das i.a. sowas wie "C:\Users\Benutzer\Desktop\...". Man kann per VBA aber auch den Pfad aus den Windows-System-Variablen auslesen. Am einfachsten per

Code:

Environ("USERPROFILE") & "\Desktop"

Was dann für oben bedeuten würde:

Code:

Filename:=Environ("USERPROFILE") & "\Desktop\" & t & ".pdf", _

Gruß, Michael

 

Hi Michael,

also das funktioniert jetzt super, Danke. Momentan wird aber (leider) jede Tabelle einzeln als pdf erstellt. Ist es denn auch möglich, dass nur ein pdf mit den "Wahr" angekreuzten Tabellen erzeugt wird? Das wäre perfekt!

Eine kleine Verschönerung ist mir noch gekommen. Könnte man den Zielpfad und den Namen, unter dem die Datei gespeichert werden soll, auch aus bestimmten Zellen in der Tabelle 1 entnehmen? Dann könnte jeder Nutzer meiner Exceldatei selbst entscheiden wo und unter welchem Namen er die Datei gerne speichern möchte. - Das aber nur als Sahnehäubchen. Viel wichtiger wäre es mir, dass die Datei als ein PDF erstellt wird.

Ich hoffe ich sprenge mit meinen Wünschen nicht den Rahmen :)

Lieben Gruß
Meike

 

Moinsens!

Da bin ich mir nicht sicher. Mittels .PrintOut kann man, wenn mehrere Blätter markiert sind, den Ausdruck dieser Blätter in einen Ausdruck bündeln. Wenn der Ausdruck dann über einen PDF-Printer (wie z.B. FreePDF) läuft, würde das in jedem Fall gehen. Das könnte dann ev. so in der Art aussehen:

Code:

            Worksheets(Array("Tabelle3", "Tabelle5", "Tabelle7")).Select
            ActiveWindow.SelectedSheets.PrintOut [ ... ]

Der VBA-Code müßte dann nur umgestellt werden, weil z.Z. die Blätter einzeln nacheinander durchlaufen werden und der Ausdruck / Export in jedem Durchlauf einzeln angeschubst wird. Dann müßten erst die Blätter einzeln selektiert und dann nach der Schleife gebündelt ausgedruckt werden.

Hier hab ich aber jetzt .ExportAsFixedFormat als Alternative für den PDF-Export benutzt. Da weiß ich gar nicht, ob man da auch mehrere Blätter gebündelt rausschicken kann. Ein erster Versuch ging auf alle Fälle schief. ExportAsFixedFormat ist zwar eine Methode von WorkSheet, aber wohl leider nicht von SelectedSheets.

Code:

Könnte man den Zielpfad und den Namen [...] auch aus bestimmten Zellen in der Tabelle 1 entnehmen?

Aber klar. Jetzt wird ja für jeden Datei-Export der Tabellen-Name benutzt. Das ist im VBA-Code die Variable "t", die in der SELECT CASE Struktur gesetzt wird. Wenn der Ausdruck / Export erst nach der Schleife (hinter dem "Next n") erfolgen soll, um mehrere Blätter zu bündeln, dann muß "t" auch nicht mehr in der Schleife laufend neu gesetzt werden, sondern kann auch direkt vor dem Ausdruck / Export bestimmt werden.

Aus

Code:

        Filename:=Environ("USERPROFILE") & "\Desktop\Tabelle.pdf", _

würde dann

Code:

        Filename:=t, _

werden. Und direkt nach dem Schleifen-Ende dann sowas wie

Code:

    t = worksheets(w).range("C3").value

wenn der Dateiname (mit kompletten Pfad!) in Zelle C3 stehen würde.

Gruß, Michael

 

mhm... ok. Meinst du das ganze würde "leichter" funktionieren, wenn man das über den xps Viewer "druckt" und nicht über PDF?

Da ich kein Geheimnis vorhabe hole ich dich gedanklich kurz ab.
So sieht meine Eingabemaske aus:

Die Infos aus dem roten Reiter mit "DB+AK...." sollen immer gedruckt werden. Und dahinter soll, je nachdem ob das zu versicherte Risiko angekreuzt wurde, der jeweilige grüne Sheet G, I, EM,... etc im Ausdruck hinter "DB+AK" hängen. Man könnte auch sagen, wenn in G ("A1") etwas steht dann mitdrucken.

Könnte man den Dateiname und Pfad splitten? d.h. in C3 bspw. den Name und in C4 den gewünschten Pfad (C:\Excel\) eingeben?

Nochmals vielen Dank für deine Hilfe!