waarschijnlijk ergens foutje in vba-code

[bowlingman]

Hallo,
Om bepaalde cellen in een sheet te wissen gebruik ik de volgende code

With Sheets("Speeldagen")
        
        For i = 3 To 893 Step 10
            .Cells(i, 1).Resize(1, 13).ClearContents
            .Cells(i + 2, 1).Resize(3, 6).ClearContents
            .Cells(i + 2, 10).Resize(3, 6).ClearContents
        Next
        
        End With

En deze werkt perfect.
Nu wil ik de code korter schrijven

With Sheets("Speeldagen")
              
        For i = 3 To 893 Step 10
            Union(Cells(i, 1).Resize(1, 13), Cells(i + 2, 1).Resize(3, 6), Cells(i + 2, 10).Resize(3, 6)).ClearContents
        Next
        End With

En deze werkt niet.
Ziet er soms iemand in de onderste code een fout staan, waardoor deze niet werkt.

Grtjs.
Armand

 

[HSV]

Ik had het je hier al eens voor gedaan en werkte toen perfect.
https://www.helpmij.nl/forum/showthread.php/947814-cellen-wissen-met-VBA

Waarschijnlijk de punten voor Cells(

 

[bowlingman]

Hallo Harry,

Bedankt voor je reactie.
Inderdaad de code is degene die jij in mijn vorige vraag hebt gegeven.
Ik was daar nog eens gaan kijken en daar staat de code ook zonder puntjes voor Cells( en dat was dus wat er mis was in de code.
Werkt nu perfect.

Grtjs.
Armand

 

[HSV]

Zonder punten verwijst naar het actieve blad,.... met punten naar het blad tussen With - End With.

 

[bowlingman]

Hallo Harry,

Bedankt om dat nog even te melden.
Leren we weeral wat bij.

Grtjs.
Armand

 

[VenA]

Volgens mij kan het veel eenvoudiger. Maar dan zal je even jouw bestandje moeten plaatsen.

 

[bowlingman]

Hallo VenA,

In bijlage de sheet waarover het gaat.
De knop om te wissen heb ik op blad2 gezet.

Grtjs.
Armand

 

[HSV]

Snellere methode.

Private Sub cmbWissen_Click()
    With Sheets("Speeldagen")
     Set c = Union(.Cells(3, 1).Resize(, 13), .Cells(5, 1).Resize(3, 6), .Cells(5, 10).Resize(3, 6))
        For i = 13 To 893 Step 10
            Set c = Union(c, Union(.Cells(i, 1).Resize(1, 13), .Cells(i + 2, 1).Resize(3, 6), .Cells(i + 2, 10).Resize(3, 6)))
        Next
     c.ClearContents
    End With
End Sub

 

[bowlingman]

Hallo Harry,

Super.
Heb juist hiermee testen gedaan in al mijn bowlingprogs en inderdaad de sheet "Speeldagen" wordt hiermee wel 100 keer sneller gewist.
Bedankt.

Grtjs.
Armand