folgende Situation:
Ich habe fünf CheckBoxen.
Wenn keine dieser Checkboxen aktiviert ist, sollen alle Boxen eine bestimmte Farbe ändern (z.B. Rot).
Wenn eine davon aktiv ist, sollen sie z.B. grau sein.
Wie ist das möglich?
Viele Grüße
Marco
Sub CheckBox1_Change
' Auf Macro ChngeColor verweisen
ChangeColor
End Sub
Sub ChangeColor
Dim ctr As Control
Dim bChecked As Boolean
For Each ctr In Me.Controls
If ctr.Tag = "chk" Then
If ctr.Value = True Then
bChecked = True
Exit For
End If
End If
Next
If bChecked Then
Checkbox1.BackColoer = 40 'Farbe anpassen
' usw
Else
Checkbox1.BackColor = 3 'Farbe anpassen
' usw
End If
End Sub
Private Sub CheckBox1_Click()
With ActiveSheet
.Unprotect ""
With CheckBox1
If .Value Then
.TopLeftCell.Offset(1, 0).Value = .Caption
Else
.TopLeftCell.Offset(1, 0).ClearContents
End If
End With
.Protect ""
End With
End Sub