CheckBox einfügen
22.11.2016 11:48:03
Lisa
Hallo zusammen, ich benötige eine Hilfe bei meinem Vorhaben.
Ich möchte pro beschriebener Zelle mit dem Change Event eine Checkbox einfügen.
Mittels dem u.g. Code wird eine Checkbox eingefügt, allerdings nicht in der Spalte 11, wie es soll sondern in Spalte 1?
Weiter soll, wenn die Zelle in Spalte A leer ist, die Checkbox wieder gelöscht werden.
Auch das passiert, leider aber für alle Checkboxen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Not Intersect(Target, Range("A2:A50")) Is Nothing Then
For Each Zelle In Intersect(Target, Range("A2:A50"))
If Zelle.Value = "" Then
Zelle.Offset(0, 11).Value = ActiveSheet.OLEObjects.Delete
Else
Zelle.Offset(0, 11).Value = ActiveSheet.OLEObjects.Add(ClassType:="Forms. _
CheckBox.1", Link:=False, _
DisplayAsIcon:=False). _
Select
End If
Next
End If
End Sub
Hat hierzu jemand eine Idee wie ich das Einfügen und Löschen hinbekomme?
Oder was ich falsch mache?
Liebe Grüße Lisa
Anzeige