VBA-Code erweitern (Schließen der UF)
André
man ist ja nie ganz glücklich bzw. eine nie fertig mit einer richtig perfekten Excelmappe.
Habe nen Klasse VBA Code bereits von HeinzH erhalten. Vielen Dank an dieser Stelle.
Würde diesen Code gerne erweitern. Der Code sieht so aus:
Option Explicit
Private Sub Abbrechen_Click()
Unload Me
End Sub
Private Sub OK()
If CheckBox1 Then Sheets("Uebersicht VII").PrintOut
If CheckBox7 Then Sheets("AL").PrintOut
If CheckBox8 Then Sheets("A").PrintOut
If CheckBox9 Then Sheets("B").PrintOut
If CheckBox10 Then Sheets("C").PrintOut
If CheckBox11 Then Sheets("Vw").PrintOut
If CheckBox12 Then Sheets(Array("Uebersicht VII", "AL", "A", "B", "C", "Vw")).PrintOut
End Sub
Private Sub User_Initialize()
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
End Sub
Ich würde gern noch einbauen, dass bei Bestätigung mit der OK-Taste sich die UserForm Drucken automatisch schließt.
Vielen Dank
und ein schönes Wochenende
André
Anzeige