Rijen verwijderen op basis van checkbox waarde

[snowseals]

Ik probeer duplicaten te verwijderen op basis van de waarde (in dit geval, unchecked) in de checkbox.
Wanneer het duplicaat verwijdert is, kan de gehele rij verwijdert worden.
Zodat ik een nette 1. t/m 500. lijst als eindresultaat heb zonder duplicaten.

Sub RemoveUnCheckedRows()
    
    Dim ctCB As CheckBox

''' Process all checkboxes in the ActiveSheet
    For Each ctCB In ActiveSheet.CheckBoxes
    
    ''' If the checkbox is unchecked, remove the row it's in and the checkbox itself
        If ctCB = 0 Then
            ctCB.TopLeftCell.EntireRow.Delete
            ctCB.Delete
        End If
        
    Next ctCB

End Sub

Ofwel, wanneer checkbox niet aangevinkt is, dan rij verwijderen.
Maar er gebeurt helemaal niets, wanneer ik deze macro uitvoer.

Is dit omdat ik een NL-versie gebruikt van Excel (2019)?
Kan iemand mij helpen? Zie bijlage.

 

[edmoor]

De controle in je code is fout.
Doe het eens zo:

Sub RemoveUnCheckedRows()
    Dim ctCB As Object

    Application.ScreenUpdating = False
    For Each ctCB In ActiveSheet.OLEObjects
        If TypeName(ctCB.Object) = "HTMLCheckbox" Then
            If Not ctCB.Object.Checked Then
                ctCB.TopLeftCell.EntireRow.Delete
                ctCB.Delete
            End If
        End If
    Next ctCB
    Application.ScreenUpdating = True
End Sub

 

[snowseals]

Dank je wel @edmoor!
Zie het nu ook, de checkbox heeft een andere verwijzing dan de standaard checkbox naam (aangezien ik het gekopieert heb van een website).

Werkt perfect :thumb: