VBA: Inhoud onbeschermde velden verwijderen

[Joost.van.Steeg]

Hoi,

Ik heb een sheet die ik regelmatig gebruik met testdata. Na het testen wil ik graag deze data weer verwijderd hebben. Hiervoor heb ik de volgende code geschreven:

  For Each c In Worksheets("Rekenschema").Range("A1:T702")
    If c.Locked = False Then
        c.Value = ""
    End If
  Next c
End Sub

Private Sub cmdSchoonMaken_Click()


De code gaat nu stuk voor stuk de cellen bij langs en als blijkt dat ze onbeveiligd zijn zet hij de inhoud op leeg. Echter is deze code zeer traag. Heeft iemand een betere oplossing?

Alvast bedankt,

 

[Finch]

Wat noem je zeer traag? Een paar seconden, een paar minuten, ...?

 

[Joost.van.Steeg]

Een paar minuten. Ongeveer een kwart seconde per veld, en gezien de range select kun je wel na gaan hoe lang dat dan duurt.

 

[Wigi]

En hoe lang duurt dit?

  For Each c In Worksheets("Rekenschema").Range("A1:T702")
    If c.Locked = False Then c.ClearContents
  Next c

 

[Joost.van.Steeg]

Helaas ongeveer net zo traag. Zal net iets sneller zijn. Maar bedankt voor het bieden van een alternatief iig.

 

[Finch]

Bij mij is die op 7 seconden afgelopen.

 

[Radjesh Klauke]

Time deze eens:

Private Sub CommandButton1_Click()
    Dim c As Range
    Application.screenupdating - false
    For Each c In Worksheets("Rekenschema").Range("A1:T702")
        If c.Locked = False Then
            c.ClearContents
        End If
    Next c
    MsgBox "klaar"
    Application.screenupdating - true
End Sub

 

[Joost.van.Steeg]

Hoi Radjesh,

Als ik de liggende streepjes vervang door "=", duurt het ongeveer 13 seconden voordat de klus is geklaard, een hele verbetering dus !

Dank jullie wel,
Bij deze zal ik het probleem op opgelost zetten.

 

[Radjesh Klauke]

Ow, exuses. Moest inderdaad ook een = zijn. Beetje veel haast

 

[Wigi]

En zet ook het berekenen eens uit:

Private Sub CommandButton1_Click()
    Dim c As Range
    Application.screenupdating = false
[B]    Application.Calculation = xlCalculationManual[/B]
    For Each c In Worksheets("Rekenschema").Range("A1:T702")
        If c.Locked = False Then
            c.ClearContents
        End If
    Next c
    MsgBox "klaar"
[B]    Application.Calculation = xlCalculationAutomatic[/B]
    Application.screenupdating - true
End Sub

Wigi

 

[Joost.van.Steeg]

Ja, fantastisch. Zit nu op ca 1,5 seconde !

Nogmaals bedankt !

 

[Wigi]

Graag gedaan, maar dat was de voordehandliggende reden ;-)

Misschien dat dit ook nog werkt:

http://en.allexperts.com/q/Excel-1059/Protected-cells.htm

maar veel ga je niet meer van je 1,5 seconden afkrijgen. Tenzij je de lus kan vermijden.

Wigi

 

[Radjesh Klauke]

Fantastisch Wigi, dat ik daar niet aan had gedacht
Mooie uitbreiding.