Office: (Office 2013) Druck wenn Kontrollkästchen angehakt

Hallo zusammen,

Habe ein Tabellenblatt, welches in einem Feld einen Wert (per Scanner) bekommt und dieses Blatt nach abschließendem Enter des Scanners direkt ausdruckt, sofern die Bedingungen in B19 stimmen.
Funktioniert soweit super wie folgt:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address = Range("C16").Address Then
        If Range("B19") <> "" Then
            ActiveSheet.PrintOut
        End If
      End If
End Sub

Jetzt möchte ich gerne noch ein Kontrollkästchen einfügen, welches bewirkt, das der Druck nur ausgelöst wird, wenn es angehakt ist.
Wie bekomm ich das noch unter?

Gruß Matt

 

Hi Matt,

nach diesem Prinzip (Formularsteuerelement):

Code:

            If ActiveSheet.CheckBoxes(1).Value = 1 Then ActiveSheet.PrintOut

Bis später,
Karin

 

Hallo,

Vielen vielen Dank.
Hatte es immer mit TRUE versucht, nimmt aber anscheinend nur 1. Wußte ich nicht.
Dann noch SelectionChange auf Change angepasst und schon klappt es :D

Also DANKE

Gruß Matt

 

Hi Matt,

TRUE und FALSE gibt es nur bei ActiveX-Steuerelementen.

Bi später,
Karin