OnAction bei dynamisch erzeugten CheckBoxen auf UF
19.01.2005 11:03:58
Torsten
ich hatte vor einiger Zeit einen ähnlichen Beitrag gepostet. Leider halfen mir die Antworten nur bedingt weiter.
Hier ist nochmal der Code abgebildet.
Ich erzeuge zur Laufzeit CheckBoxes auf einer Userform. Wie erreiche ich aber dass beim Klick auf eine Box genau dieses erkannt wird und ein Ereignis ausgelöst wird, z.B. der Name dieser CheckBox. OnAction funktioniert nicht in diesem Fall.
Vielen Dank im voraus!
Torsten
Private Sub UserForm_Initialize()
Dim c As Control
Dim i As Long
Dim t As Long
t = 12
For i = 1 To 5
Set c = UserForm1.Controls.Add("Forms.CheckBox.1", "CBox_Bezeichnung_" & i, True)
With c
.Top = t
.Left = 6
.Value = 0
.Width = 200
.Caption = "Profil " & i
'.OnAction = MsgBox(c.Name)
End With
t = t + 15
Next i
End Sub