Gibt es eine Möglichkeit auch aus einer UF Blätter auszudrucken,wenn diese Ausgeblendet sind ?
Blätter heissen genau so wie in den CheckBoxen.
Also 311,312A usw.
Danke,Heinz
Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
Unload Me
End Sub