In einer Userform ist eine Checkbox.
Zum Beenden der Userform wird ein Button gedrückt. Zu diesem Zeitpunkt soll in einer bestimmten Zelle eine Checkbox erzeugt werden. Diese soll keine Beschriftung daneben haben und den Wert der Checkbox aus der Userform haben.
Kann man das über die Argumente beim erzeugen irgendwie steuern ob die box aktiviert ist oder nicht? Sie soll auch schreibgeschützt sein, weshalb ich DisplayAsIcon = TRUE gesetzt habe.
Wenn es einene einfacheren Weg gibt wär ich auch nicht böse ;)
Dim erschdatum, spieldauer As String
Dim aktzelle As Range
Dim ctlOLEObject As Object
Set aktzelle = Worksheets("Sampler").Cells(aktZeile, 6)
...
Worksheets("Sampler").Cells(aktZeile, 4).Value = TBInterpret.Value
Worksheets("Sampler").Cells(aktZeile, 5).Value = TBTitel.Value
If CheckBoxEdit = True Then
Set ctlOLEObject = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.CheckBox.1", _
Link:=False, _
DisplayAsIcon:=True, _
Left:=aktzelle.Left, _
Top:=aktzelle.Top, _
Width:=aktzelle.Width, _
Height:=aktzelle.Height)
ctlOLEObject.Placement = xlMoveAndSize
ctlOLEObject.Activate
ElseIf CheckBoxEdit = False Then
(das gleiche nochmal für Checkbox nicht aktiviert)
...