Opgelost cellen leegmaken met behulp van een knop

[wally1968]

Als ik op de knop "Nieuw spel" druk om aangegeven cellen leeg te maken, krijg ik telkens een fout melding.
Kunnen jullie eens kijken wat er hier fout aan is

 

[AHulpje]

Probeer het eens zo:

Sub Knop1_Klikken()
    Application.EnableEvents = False
    Range("A4:A23").ClearContents
    Application.EnableEvents = True
End Sub

 

[edmoor]

Wat er fout aan is, is dat je een cel event achter een knop hebt gezet.
Dan is er geen Target actief.

 

[AHulpje]

Als je op de kop klikt wordt de range $A$4:$A$23 leeg gemaakt, dus de Worksheet_Change gebeurtenis wordt uitgevoerd. Er is dan juist wel een Target actief met het adres $A$4:$A$23.
Target.Offset(0, 1).Address is dan $B$4:$B$23, en Target.Offset(0, 1).Value = 0 levert dan de fout "Type komen niet met elkaar overeen" op.
E.e.a. is te voorkomen door de gebeurtenissen (events) tijdelijk uit te schakelen met Application.EnableEvents = False.

 

[edmoor]

Inderdaad, niet gezien.

 

[AHulpje]

@edmoor
Hoe bedoel je? Heb je mijn oplossing geprobeerd? Werkt prima, maar misschien heb jij een betere of andere oplossing.

 

[edmoor]

Ik had m'n post al aangepast en koffie gepakt

 

[AHulpje]

Ah, dat is het verschil, ik had al koffie gehad!

Bericht automatisch samengevoegd: Vandaag om 11:59

Maar zo kan het ook:

 

[wally1968]

Dank u allemaal voor de snelle reactie. Het werkt prima voor mij