Gruppe
Ereignis
Problem
Wie kann ich eine Serie von CheckBoxes in einem Tabellenblatt in Abhängigkeit von Zelleingaben steuern?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim shp As Shape
Dim iCounter As Integer
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
For iCounter = 1 To 10
If WorksheetFunction.CountIf(Columns(1), iCounter) > 0 Then
OLEObjects(iCounter).Object.Value = True
Else
OLEObjects(iCounter).Object.Value = False
End If
Next iCounter
End Sub