Druckmenü

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdDrucken_Click()
Dim chk As Control
Dim strSh As String
Application.ScreenUpdating = False
For Each chk In Me.Controls
If TypeOf chk Is MSForms.CheckBox Then
If chk Then 'angehakt?
strSh = strSh & chk.Caption & ","
End If
End If
Next
If strSh = "" Then Exit Sub
strSh = Left(strSh, Len(strSh) - 1)
Sheets(Split(strSh, ",")).Select
Unload Me
Application.Dialogs(xlDialogPrint).Show
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
Dim chk As MSForms.CheckBox
Dim Sh
Dim Oben As Integer
Oben = 8
For Each Sh In ThisWorkbook.Sheets
Set chk = Me.Controls.Add(bstrprogid:="forms.CheckBox.1", Name:=Sh.Name, Visible:=True)
With chk
.Top = Oben          'Abstand zwischen Boxes
.Left = 30           'Abstand links
.Caption = Sh.Name   'Tabellenblattname
.Width = 170         'Breite
End With
Oben = Oben + 24
Next
End Sub