ich habe die haupt Sub asl Examine_Click() und daneben eine checkbox "CheckBox1_Click()". Ich habe auch eine Schaltfläche (Overall), die mehrere Schaltflächen startet. Mein Ziel ist es, dass wenn ich die Checklbox aktiviere, diese eine Schaltfläche nicht aktiviert wird, wenn ich die Overall Schaltfläche betätige.Leider weiss ich nciht, wie ich die CheckBox1_Click() SUb in die Schaltflächen Sub Examine_Click() integriere, so dass es nicht ausgeführt wird.
Das ist Sub mit der Schaltfläche
Sub Examine_Click()
....
...
Die Checkbox Sub
Private Sub CheckBox1_Click()
Dim b As Button
Set b = ActiveSheet.Buttons("Button 4")
If CheckBox1.Value = True Then
b.Enabled = True
b.Font.ColorIndex = 1
Else: b.Enabled = False
b.Font.ColorIndex = 15
End If
End Sub
|