Opgelost Cellen worden niet allemaal leeggemaakt bij de winnaars van een dartcompetitie

[Gielleke25]

Hallo iedereen,

Mag ik even om jullie kennis/hulp vragen aub?
Diverse maanden hebben wij een uitgebreid VBA programma gemaakt voor onze dartsclub met dank ook aan jullie.
Door het gebruik ervan ondervinden we dat we soms meerdere winnaars met een 180 score hebben...
Dit hebben we aangepast bij het bekend maken van de winnaars.
Echter iets héél raar, waar ik de oplossing niet meteen van kan inzien...

Wanneer we op de knop "Wedstrijden allemaal verwijderen" drukken op het tabblad "Score wedstrijden - Tabel" dan is de laatste stap in de VBA code, dat hij het tabblad "Winnaar competitie" open doet en de datums en de winnende namen leeg maakt.
Echter doet hij alleen de cellen D33 en D34...

Paswoord voor het werkblad is: Lokeren

Ziet iemand waar de fout kan zitten aub?
Van harte bedankt voor jullie tijd hiervoor!

'Winnaars en datum leegmaken'
    Worksheets("Winnaar competitie").Activate
    ActiveSheet.Unprotect Password:="lokeren"

    'Reeks A'
    Worksheets("Winnaar competitie").Range("D33:D43") = ""
    
    'Reeks B'
    Worksheets("Winnaar competitie").Range("J33:J43") = ""
    
    '180'
    Worksheets("Winnaar competitie").Range("P33:P43") = ""
    
    'HF'
    Worksheets("Winnaar competitie").Range("V33:V43") = ""

 

[AHulpje]

Als je op de knop "Wedstrijden allemaal verwijderen" klikt wordt Sub CommandButton1_Click() uitgevoerd en niet zoals je dacht Sub BTN_Wedstrijden_allemaal_verwijderen_Click().
En dit is best een grappige subroutine:

Private Sub Worksheet_Activate()

    ActiveSheet.Unprotect Password:="lokeren"
    ActiveSheet.Protect Password:="lokeren"

End Sub

Het leegmaken van de betreffende cellen kan overigens iets compacter:

    'Winnaars en datum leegmaken'
    With Worksheets("Winnaar competitie")
        .Unprotect Password:="lokeren"
        .Range("D33:D43,J33:J43,P33:P43,V33:V43").Clear
        .Protect Password:="lokeren"
    End With

 

[edmoor]

De code die je hier plaatste zit niet in CommandButton1_Click()

Edit:
AHulpje was sneller.

 

[snb]

sheets("Winnaar competitie").Range("D33:D43,J33:J43,P33:P43,V33:V43").clearcontents

of

Blad22.Range("D33:D43,J33:J43,P33:P43,V33:V43").clearcontents

 

[AHulpje]

@snb
Werkblad is password protected toch?

 

[Gielleke25]

@AHulpje
Bedankt! blijkbaar zat er er nog een verkeerde knop functie in de VBA.
Het leegmaken werkt correct!

Bedankt aan iedereen voor jullie bijdrage!

Mvg,