Regels automatisch laten verbergen

[freezitt]

Hallo,

Ik gebruik de volgende formule om regels te verbergen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j
With Sheets("blad 1")
For Each j In Range("J9")
If j = "DU" Then j.EntireRow.Hidden = True Else j.EntireRow.Hidden = False
Next
End With
End Sub

Hoe kan ik ervoor zorgen dat de toch regel word veborgen
ook als "DU" in een andere regel staat?

Alvast bedankt

 

[Emil S]

zo?

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim j
 With Sheets("blad 1")
 For Each j In [COLOR="#FF0000"].[/COLOR]Range("[COLOR="#FF0000"]J:J[/COLOR]")
 If j = "DU" Then j.EntireRow.Hidden = True Else j.EntireRow.Hidden = False
 Next
 End With
 End Sub

uit de losse pols

 

[freezitt]

Nee dat werkt niet,
wanneer ik dit in type
hangt Excel opeens vast
en moet ik hem afsluiten

 

[Niels28]

@Emil

Ga je alle 1048576 cellen 1 voor 1 nalopen?

Ik zou dan toch .specialcells(2) toevoegen

Niels

 

[Niels28]

@freezitt

Heel logisch dat excel vast lijkt te lopen, zie mijn reactie

Niels

 

[Emil S]

@Niels28
helemaal gelijk. :thumb: