Verwijderen Meerdere Checkboxen en HTMLcheckboxen in 1x

[Offthefield]

Beste allemaal,

Ik heb een excel bestand met een paar 100 checkboxen en HTMLcheckboxen,
deze wil ik in 1x verwijderen met een macro, is dit mogelijk?

Ik ben op internet gaan zoeken, hier vond ik een aantal macro's om meerdere checkboxen te verwijderen,
maar deze werken niet.

Heeft iemand een idee hoe dat wel kan?

Alvast hartelijk dank

Offthefield

 

[edmoor]

Zo:

Sub RemoveCheckBoxes()
    For Each obj In ActiveSheet.OLEObjects
        If InStr(1, LCase(obj.Name), "checkbox") > 0 Then obj.Delete
    Next
End Sub

 

[AHulpje]

Kan ook zonder macro:

• Start
• Zoeken en selecteren
• Selecteren speciaal
• Objecten
• OK
• Delete

 

[JEC.]

@AHulpje, je mist hier de conditie voor specifiek een checkbox

 

[AHulpje]

@JEC
Dat is mij uiteraard bekend, maar vond het toch een mogelijke oplossing. Een enkele mee-geselecteerde button kan gedeselecteerd worden.

 

[snb]

Voorkomen is beter dan genezen.
Mij lijken hier 5 vinkvakken voldoende.
Een aanpak zonder vinkvakken, maar met dezelfde funktionaliteit is zelfs nog wenselijker.

 

[Offthefield]

Bedankt voor de reactie,

In mijn test versie werkt hij perfect!!, alleen in de originele versie geeft hij de volgende melding.

De objectbibliotheek is ongeldig of bevat verwijzingen naar objectdefinities die niet kunnen worden gevonden.

Wat houdt dit in?

Iemand een idee!

 

[snb]

Robuuster:

Sub M_snb()
  For Each it In ActiveSheet.OLEObjects
    If InStr(typename(it.Object),"CheckBox") Then it.Delete
  Next
End Sub

en minder subtiel:

Sub M_snb()
  activesheet.shapes.Selectall
  selection.delete
End Sub

 

[JEC.]

of

Sheet1.drawingobjects.delete

 

[snb]

@JEC,

Verrek, ja. :thumb:

 

[Offthefield]

Allemaal bedankt voor de reactie, maar hij blijft dezelfde foutmelding te geven.

Wat kan ik doen om deze melding niet te rijgen en waar komt deze vandaan?

Alvast bedankt

Offthefield

 

[snb]

Kijk eens in deVBEditor bij extra/ verwijzingen/referenties

 

[Offthefield]

Hartelijk dank voor de reactie, maar welke module moet ik toevoegen?

 

[snb]

vink de referentie uit die begint met 'MISSING'.

 

[Offthefield]

Sorry snb voor de late reactie, net terug van vakantie, ga vanavond kijken en kom erop terug

 

[Offthefield]

Ik heb in de VBEditor bij extra/ verwijzingen/referenties gekeken, hier heb ik geen referenties gevonden met MISSING,
ik blijf dezelfde foutmeldingen krijgen, maar met :

Start
Zoeken en selecteren
Selecteren speciaal
Objecten
OK
Delete

Lukte het wel om de vinkvakken te verwijderen.

Iedereen nog bedankt voor de hulp

Offthefield