Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change