Office: (Office 2010) Excel - Drucken bestimmter Tabellenblätter (Checkboxen)

Hallo Forum,

ich bin neu hier und bin leider durch eine Google-Suche nicht fündig geworden bzw. fand ich kein passendes Makro.
Ich habe eine Excel Arbeitsmappe mit ca. 15 Tabellenblättern.
Auf dem ersten Tabellenblatt ist eine Grundmaske, welche befüllt werden muss.
Diese Daten werden dann entsprechend in den anderen Tabellenblättern verwendet.
Nun möchte ich auf dem ersten Tabellenblatt einen Druckbutton machen und evtl. mittels Checkboxen die Tabellen auswählen, welche gedruckt werden sollen?
Gibt es diesbezüglich ein passendes Makro, oder eine andere Lösung?

Ich bedanke mich im Voraus und entschuldige mich, falls es diese Frage bereits gibt.

Gruß

glampfe

 

Hi,

was für CheckBoxen - ActiveX- oder Formular-Steuerelemente?

Bis später,
Karin

 

Hallo Karin,

Ich hätte mit ActiveX-Steuerelementen gearbeitet, sodass ich mit einem CommandButton den Druckbefehl ausführen kann. Quasi soll durch klicken des Command-Buttons geprüft werden, welche ActiveX Checkboxen angeklickt sind und dementsprechend das zugehörige Tabellenblatt gedruckt werden.

Ich bedanke mich im Voraus.

Gruß

Tom

 

Hi Tom,

naja, wenn man mit einem ActiveX-CommandButton arbeitet muss das nicht heißen, dass die anderen Steuerelemente (Kontrollkästchen) ebenfalls ActiveX-Steuerelemente sein müssen.
Sind die ActiveX-CheckBoxen mit den Namen der betreffenden Tabellenblätter beschriftet oder wie lässt sich feststellen, welche CheckBox sich auf welches Tabellenblatt bezieht? Du siehst - da ich deine Mappe nicht kenne und du nichts genaues geschrieben hast, ist es schwierig, auf das Problem einzugehen, sodass man nur raten kann. Am einfachsten ist es immer, wenn man eine Beispielmappe hochlädt, dann kann man sich als Helfer genaue Vorstellungen machen, wie an das Problem heranzugehen ist - andernfalls ist es immer nur ein Stochern im Nebel und unnötiges Rückfragen...

Bis später,
Karin

 

Hallo Karin,

vielen Dank für die Antwort.
Anbei wäre eine Beispieldatei, jedoch nur mit dem Button und den Checkboxen (ohne Makros oder VBA).
Checkbox1 soll Tabelle 2 sein, Checkbox2 = Tabelle 3 usw... In meinem Formular würde es da um ca. 20 Tabellenblätter gehen.
Beim Drücken des Drucken Buttons soll überprüft werden, welche Checkbox gewählt wurde und dann sollte dementsprechend das zugehörige Blatt gedruckt werden :) Wahrscheinlich ist es eine ganz simple Lösung, aber bin in VBA jetzt eher Laie... :D
Als andere Lösung hätte ich, für jedes Tabellenblatt einfach nen CommandButton zu erstellen, aber mit den Checkboxen wäre es übersichtlicher.

Ich bedanke mich im Voraus.

Gruß

Tom

 

Hi Tom,

dies wäre der Code für den CommandButton:

Code:

Private Sub CommandButton1_Click()
    Dim oobElement As OLEObject
    For Each oobElement In ActiveSheet.OLEObjects
        If oobElement.progID = "Forms.CheckBox.1" Then
            If oobElement.Object.Value = True Then Worksheets(oobElement.Object.Caption).PrintOut
        End If
    Next oobElement
End Sub

Beachte: es erfolgt keine Prüfung, ob das betreffende Tabellenblatt vorhanden ist - falls es nicht vorhanden ist, wird ein Laufzeitfehler ausgegeben.

Bos später,
Karin

 

Hey Karin,

Super, genau das habe ich gesucht.
Vielen Dank, klappt einwandfrei :)

Gruß

Tom

 

Hallo nochmal Karin,

klappt super, jedoch würde ich die ganzen Tabellenblätter gerne ausblenden, sodass niemand was daran ändern kann. Inwiefern muss ich den Code dann umschreiben, oder funktioniert das nicht?

Gruß

Tom

 

Hi Tom,

blende die zu druckende(n) Tabelle(n) zuerst ein, drucke sie dann und blende sie wieder aus:

Code:

    Dim oobElement As OLEObject
    For Each oobElement In ActiveSheet.OLEObjects
        If oobElement.progID = "Forms.CheckBox.1" Then
            If oobElement.Object.Value = True Then
                With Worksheets(oobElement.Object.Caption)
                    If .Visible = False Then
                        .Visible = True
                        .PrintOut
                        .Visible = False
                    End If
                End With
            End If
        End If
    Next oobElement

Bis später,
Karin

 

Hallo Karin,
Vielen Dank... Wahnsinn, muss dich bewundern :)
Funktioniert das auch, wenn die Blätter mit Passwort geschützt sind?
Und eins fällt mir noch ein, bei mir daheim funktioniert das jetzt einwandfrei, jedoch hat bei uns in der Arbeit jeder einen anderen Drucker bzw teilweise den PDF Creator als Standarddrucker! Kann man da noch eine Abfrage bzgl des Druckers hinzufügen?

Vielen Dank schon mal!

Gruß

Tom