Excel: Vinkje vervangen door een waarde

[Withaar]

Zie bijgaand excel bestand, de gegevens zijn via kopieren-plakken van een website in excel geplakt. In totaal gaat het om meerdere lijsten met in totaal meer dan 4000 rijen.
Ik zou graag de vinkjes vervangen hebben door een waarde, bv 0 en 1 of Aan en Uit.
Iemand een idee hoe ik dat slim kan aanpakken?

 

[LucB]

vinkjes weg

Hallo Withaar,

Ik heb je bestand voorzien van een Macro die het door jouw beoogde opknapt.

Alvast een goede jaarwisseling en een gezond 2006.

 

[Withaar]

LucB,

Bedankt voor je snelle reactie, maar niet helemaal wat ik vroeg.
Het snel kunnen verwijderen van shapes is handig, maar ik wil wel de 'waarde' van een vinkje eerst 'vertaald' hebben.
Dus vinkje aan of vinkje uit als waarde 1 en 0 in bijvoorbeeld de D kolom (mag ook een andere zijn).

P.s. oplossingen buiten excel om zijn ook welkom.

 

[Withaar]

Zelf een oplossing gevonden.

Sub Waar_Onwaar()
blad = ActiveSheet.Name
intTeller = 2 '
Dim x As String
Dim y As String
For Each obj In Worksheets(blad).OLEObjects
x = obj.Object.HTMLName
y = obj.Object.Checked
' Range("K" + CStr(intTeller)).Value = x
Range("L" + CStr(intTeller)).Value = y
intTeller = intTeller + 1
Next
End Sub

De overige Object onderdelen kun je er ook gemakkelijk uit halen.

Gewoon obj.Object.xxx gebruiken