Tabbladen wissen met VBA

[Roma]

Beste,
Ik heb een vrij groot bestand gemaakt(ongeveer 60 tabbalden en totaal 2 mb). Nu wil graag dat 4 tabbladen regelmatig gewist worden.
Ik heb hiervoor een macro gemaakt. en die werkt goed. Alleen hij rolt over het scherm. Hoe kan ik dit verhelpen.
zie bijlage

 

[edmoor]

Ze als eerste opdracht in de macro dit neer:
Application.ScreenUpdating = False

En als laatste:
Application.ScreenUpdating = True

 

[Roma]

Je bent weer een topper. bedankt
Ron

 

[Elsendoorn2134]

Noroma,

Je programma rolt over het scherm omdat je regelmatig ".Select" gebruikt in je programma.
Deze select heb je helemaal niet nodig. De volgende code doet precies het zelfde met minder
regels en geen Select.

Sub Planner()

Dim x As Integer

For x = 2 To 5
    With Sheets("Blad" & x)
        .Unprotect ""
        .Range("C9:AG43").ClearContents
        .Range("C53:AE87").ClearContents
        .Range("C96:AG130").ClearContents
    End With
Next

End Sub

Veel Succes.

 

[snb]

of

For j = 2 To 5
    Sheets("Blad" & j).Range("C9:AG43,C53:AE87,C96:AG130").ClearContents
Next

 

[Roma]

Heren,
Net thuis even vlug uitgetest. Werkt perfect.
Bedankt
Ron

 

[snb]

Hoezo 'heren', hoe weet je dat ?

 

[Roma]

ok of dames