Office: Userform mit Checkboxen (Checkbox = Arbeitsmappe) ausdrucken

Hallo Leute,

und nochmal Steck ich fest=(

und zwar habe ich eine Userform erstellt, die folgendermaßen aussieht:

http://img225.imageshack.us/img225/2200/unbenannt2e.jpg

Weis jemand wie der Code für dieses aussieht, wenn ich NUR die markierten Mappen ausdrucken möche? (Jede der Checkboxen bezieht sich auf eine Mappe in Excel)

Vielen Dank ;)
Beiträge der letzten Zeit anzeigen:

 

Hallo Demi,

ich benutze schon Version 2010, aber selbst diese Version kann aus einen Bild eine Datei erstellen, geschweige dann den Code.

Gruß Hajo

 

Hallo,

in der beiliegenden Excel-Datei ist die Userform 'UserForm1' enthalten. In diese habe ich nach Deinen Vorgaben Code hinzugefügt, soweit dies überhaupt möglich war (wegen der spärlichen Angaben Deinerseits).
Aufgerufen wird die Userform aus VBA heraus mit dem Befehl 'UserForm1.Show', da ich den Namen der Form bei 'UserForm1' belassen habe.
Die Namen für die 3 Excel-Arbeitsmappen bezieht der Code aus den 3 Bezeichnungen der 3 Checkboxen (also heißen die 3 Arbeitsmappen momentan 'Mappe1', 'Mappe2' und 'Mappe3'). Damit der Code funktioniert müssen diese 3 Mappen bereits unter diesen Namen geöffnet sein (denn sie werden im momentan vorliegenden Code in der Userform nicht geöffnet).
Ich habe einigen Kommentar in die Userform eingefügt, um Dir möglicherweise notwendige Code-Ergänzungen zu erleichtern.

 

Hi,

schreibe in die Tag-Eigenschaft der 3 CheckBoxen jeweils den Namen der zu druckenden Arbeitsmappe einschließlich Pfad, z.B. C:\Test\Mappe1.xls. Mit dem folgenden Code werden die Mappen, für die die CheckBox aktiviert ist, geöffnet, gedruckt und wieder geschlossen:

Code:

Private Sub CommandButton1_Click()
    Dim coElement As Control        ' Variable für die Steuerelmente
    ' Schleife über alle Steuerelemente des userForms
    For Each coElement In Me.Controls
        ' Steuerelement ist eine CheckBox
        If TypeName(coElement) = "CheckBox" Then
            ' CheckBox ist aktiviert
            If coElement Then
                ' Öffnen der Arbeitsmappe die in der Tag-Eigenschaft
                ' der CheckBox steht
                Workbook.Open coElement.Tag
                ' aktive Arbeitsmappe drucken
                ActiveWorkbook.PrintOut
                ' aktive Arbeitsmappe schließen
                ActiveWorkbook.Close
            End If
        End If
    Next coElement
End Sub

Bis später,
Karin

 

Vielen Dank,

ich werde eure Vorschläge mal ausprobieren;)

 

Es hat geklappt, Super DANKE!!!!