Der untere Code einer UF trägt mir Daten in Sheets "W311" ein.
Ich möchte aber "W311" nur ausdrucken wenn die CheckBox8 angeklickt ist.
Sonst eine MsgBox "Keine Linie ausgewählt"
Könnte mir dabei bitte jemand weiterhelfen ?
Danke Heinz
Private Sub CommandButton6_Click()
Dim wksMaschine As Worksheet, bolDrucken As Boolean
Application.ScreenUpdating = False
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte Datum wählen!"
Exit Sub
End If
bolDrucken = False
Set wksMaschine = Worksheets("W311")
Application.ScreenUpdating = False
Worksheets("W311").Unprotect Password:="test"
Worksheets("W311").Visible = True
With wksMaschine
.Range("E6") = Me.ComboBox1.Value 'Datum
.Range("E4") = Me.TextBox2 'Artikelbeschreibung
.Range("A4") = Me.TextBox3 'ArtikelNummer
.PrintOut
'Worksheets("W311").Visible = xlVeryHidden
End With
End Sub