ich lasse auf einem Tabellenblatt Dynamisch Checkboxen einfügen. Wenn jetzt eine dieser Checkboxen Ihren wert ändert möchte ich eigentlich immer das selbe Sub ausführen dafür musste ich aber wissen welche Checkbox gerade geändert wurde.
So werden die Boxen erzeugt
For i = 1 To LastRow
Worksheets("Tabelle1").CheckBoxes.Add(Left:=Range("B" & i).Left, Top:=Range("B" & i).Top, _
_
_
_
_
_
_
Width:=Range("B" & i).Width, Height:=Range("B" & i).Height).Select
With Selection
.Caption = ""
.value = True
.Name = "Box_B" & i
.OnAction = "DerTest"
End With
Next i
Ich hoffe mein Problem ist zu verstehen :D
Sub DerTest()
MsgBox ActiveControl.Name
End Sub
Funktioniert nicht :D