Snel de inhoud wissen van meerdere cellen

[Chris15]

Is er een manier om snel de inhoud te wissen van:

B5 tm B1000 en C5 tm C1000 en E5 tm E1000?

Ik heb het hele blad beveiligd, behalve bovenstaande cellen.

Ik dacht, dat is makkelijk want dan selecteer ik het hele blad en klik op “invoer wissen”
Ik dacht dat dan alle onbeveiligde cellen gewist zouden worden, maar dat gaat niet op

 

[Cobbe]

Geef die 3 bereiken een naam en doe een:

Range(naam).ClearContents

 

[Chris15]

Hoi Cobbe,

Hoe en waar geef ik die bereiken een naam en waar voer ik jou code in.

En als ik dat bereik wil wissen, hoe doe ik dat?

 

[Chris15]

Ik heb ze nu een naam gegeven, nu moet ik alleen jou code nog kunnen gebruiken

 

[Cobbe]

Teken via Ontwikkelaars - Invoegen een button (eerste linksboven)
dan opent een schermpje waarin je de naam eventueel kunt aanpassen
dan kies je voor Nieuw - linkerkant bovenste
Dan plak je deze code daar en sluit via het kruisje.

Sub cobbe()
 Range("naam1").ClearContents
  Range("naam2").ClearContents
   Range("naam3").ClearContents
End Sub

Pas naam1 ... 3 aan, en testen.

 

[Chris15]

Hoi Cobbe,

Het wissen werkt, maar dan blijft de focus op de cellen. zie bijlage.

Zelfs als ik met de muis naar B5 ga bijvoorbeeld, blijven de cellen geselecteerd.

 

[Chris15]

Hoi Cobbe,

Ik heb het op een andere manier gedaan.

Een macro opgenomen door alle cellen te selecteren en de inhoud te wissen.

En die macronaam aan de knop gehangen.

Hert werkt prima, maar misschien een beetje te amateuristisch?

 

[Cobbe]

En zo?

Sub cobbe()
 Range("naam").ClearContents
   Range("naam").Cells(1,1).select
End Sub

Post anders een bestandje. Of de opgenomen code.

 

[Chris15]

Hoi Cobbe, lukt ook niet, zie bijlage.

Ik zal de sheet even posten.....

 

[Chris15]

Hierbij een voorbeeld in bijlage...

 

[Chris15]

Bijlage voorlaatste bericht...

 

[Cobbe]

Dit is meer dan genoeg:

Sub Wissen()
    Range("B5:C511,E5:E511").ClearContents
End Sub

 

[Chris15]

Hoi Cobbe, je bent vroeg!

Ja, dit werkt prima, waarom werkt deze code wel en reageerde die andere code zo vreemd?

 

[Cobbe]

Ik hoef niet meer te werken hé, heb ik ook niet zo veel slaap meer nodig.

Ik denk dat het door die beveiliging komt, dan kun je die selectie maar opheffen als je binnen het vrije bereik klikt.

 

[Chris15]

Daar begrijp ik (nog) niet veel van, maar dat komt nog wel als ik wat verder ben

Cobbe, kan de code aangepast worden dat de macro in werking gaat bij dubbelklikken op de knop? (voor de veiligheid)

 

[Cobbe]

Zo goed?

 

[Chris15]

Hoi Cobbe, ik moet nu de deur uit. Maar ik laat het je zo snel mogelijk weten! Dank je

 

[Chris15]

Hoi Cobbe,

Je laatste bijlage geeft weer dat vreemde resultaat.

Je laatste code werkt wel prima:

Sub Wissen()
Range("B5:C511,E5:E511").ClearContents
End Sub

Maar als ik A5:A511 erbij zet, dan wist hij dat niet. (wel B5:C511,E5:E511)

 

[Cobbe]

Dat komt doordat de clellen in kolom A en C geblokkeerd worden door de beveiliging van je tab.
Haal de beveiliging van je blad en het werkt weer zoals het moet.

Je kan de naam definiëren als:

=Blad1!$A$5:$A$1000;Blad1!$B$5:$B1000;Blad1!$D$5:$D$1000

 

[Chris15]

Dank je Cobbe!