Checkbox aus anderer UF deaktivieren
Heinz
Der untere Code ist aus der UF "Tagesprüfungen" der mir das Tab.Blatt "Prüfungen" ausdruckt.Das funkt. auch alles.
Nun möchte ich aber, das nach dem drucken die Checkboxen 17 + 18 aus der UF "Eingabe" wieder deaktiviert (also Häckchen wieder raus) wird.
Könnte mir dazu bitte jemand weiterhelfen ?
Danke
Heinz
Private Sub Image1_Click()
Application.ActivePrinter = "NRG MP 2510 PCL 5e auf Ne01:"
Dim iClick As Integer
Dim ZeiJ As Long, SpaJ As Long
Dim SpaA As Long
Worksheets("Prüfungen").Visible = True
Sheets("Prüfungen").PrintOut
Worksheets("Prüfungen").Visible = xlVeryHidden
Worksheets("Prüfungen").Protect Password:="vetro"
Unload Me
Exit Sub
End Sub