Gruppe
Ereignis
Bereich
Change
Thema
CheckBoxes in einer Tabelle über Zelleingaben steuern
Problem
Wie kann ich eine Serie von CheckBoxes in einem Tabellenblatt in Abhängigkeit von Zelleingaben steuern?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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