Hallo Moliga,
keine Ahnung, was genau Du erreichen möchtest, vor allem weil ich Deine Datei nicht kenne. Aber das kann mir ja auch egal sein und ich mache mir darüber keine Gedanken.
Nachfolgendes Makro macht das, was Du Dir vorstellst. Das Makro ist auf meine Beispieldatei aus AW2 bezogen.
Sub CheckBoxen_einfuegen()
Dim lngLastRow As Long
Dim lngRow As Long
Dim dblRowHeight As Double
Dim objCheckBox As OLEObject
Dim objOleObejkt As OLEObject
Dim bolObjektVorhanden As Boolean
bolObjektVorhanden = False
dblRowHeight = 0.75
lngLastRow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For lngRow = 2 To lngLastRow
dblRowHeight = dblRowHeight + Cells(lngRow, 1).RowHeight
Next
For Each objOleObejkt In ActiveSheet.OLEObjects
If objOleObejkt.Name = "CheckBox" & lngLastRow Then
bolObjektVorhanden = True
If objOleObejkt.Object.Value = True Then Cells(lngLastRow, 1) = "Ja"
Exit For
End If
Next
If bolObjektVorhanden = False Then
Set objCheckBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=Columns(1).ColumnWidth * 2.5, Top:=dblRowHeight, _
Width:=14.25, Height:=15)
objCheckBox.Name = "CheckBox" & lngLastRow
Set objCheckBox = Nothing
End If
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]