Hallo,
nutzt du ActiveX-Checkboxen oder Formularsteuerelemente-Checkboxen.
Für Formularsteuerelemente-Checkboxen kann man via Application.Caller auf ein Event reagieren.
Das wäre beispielhaft so (in ein allgemeines Modul):
Option Explicit
Sub Kontrollkaestchen_Klicken() ' reagiert auf Event einer Checkbox
With ActiveSheet.Shapes(Application.Caller).TopLeftCell
MsgBox ActiveSheet.Shapes(Application.Caller).Name
End With
End Sub
Sub AllenFormularCheckboxenMakroZuweisen() ' alle Shapes (Checkboxen) einlesen
Dim objCheckbox As Shape
For Each objCheckbox In ActiveSheet.Shapes
objCheckbox.OnAction = "Kontrollkaestchen_Klicken"
Next objCheckbox
End Sub
Für ActiveX Checkboxen wäre dies via Klasse machbar. Dazu müsstest du eine der Sache entsprechende Beispieldatei hochladen.
Es ginge, wenn die Zahl der Checkboxen sich nicht ändert auch mit einer kleinen Funktion, welche in der _Click Prozedur ausgelöst wird.
Gruß Uwe
|