Regels verbergen

[TJ86]

Hallo,

ik gebruik volgende script (en het werkt) om regels te verbergen;

Sub RegelsVerbergen()

Application.ScreenUpdating = False
Call UnprotectSheet
For Each c In Range("AS5:AS904")
If c <= 0 Then Rows(c.Row).EntireRow.Hidden = True
If c >= 1 Then Rows(c.Row).EntireRow.Hidden = False
Next
Call ProtectSheet
Application.ScreenUpdating = True
End Sub

En dit script om de regels weer zichtbaar te maken ;

Sub RegelsWeergeven()

Application.ScreenUpdating = False

Call UnprotectSheet
For Each c In Range("AS5:AS904")
If c = "" Then Rows(c.Row).EntireRow.Hidden = False
If c <> "" Then Rows(c.Row).EntireRow.Hidden = False
Next
Call ProtectSheet
Application.ScreenUpdating = True
End Sub

Het duurt echter enkele MINUTEN voordat Excel klaar is met het uitvoeren van het script.. Is er een methode dat dit proces versneld kan worden?

Alvast dank voor jullie reacties.

gr. TJ

 

[edmoor]

Probeer het eens zo:

Sub RegelsVerbergen()
    sCalc = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    Call UnprotectSheet
    For Each c In Range("AS5:AS904")
        Rows(c.Row).EntireRow.Hidden = IIf(c <= 0, True, False)
    Next
    Call ProtectSheet
    
    Application.Calculation = sCalc
    Application.ScreenUpdating = True
End Sub

 

[TJ86]

Hi, bedankt! Alleen nu reageert mijn Excel niet meer... (not responding)

 

[edmoor]

Ook de laatste wijziging in #2 gezien?
Plaats dan je document.