Regels verbergen n.a.v. celwaarde "0" of lege cel

[Bakkerbakgraag]

Beste allemaal,
ik weet dat hier al heel veel over geschreven is, maar ik kom er toch niet uit.

Ik wil graag op een sheet de regels 1 t/m 105 verbergen indien de celwaarden in kolom B
(bereik is dus b1:b105) "0" zijn of leeg zijn.
Als de waarde in cel b1 dus 0 (of leeg) is, graag de hele regel 1 verbergen, als waarde cel b2 0 (of leeg) is,
regel 2 verbergen enz.
Ik maak mij geen zorgen dat ik in verborgen regels geen gegevens meer kan wijzigen, want die waarden
voer ik in vanuit een ander blad.

Ik hoop dat iemand mij kan helpen.

Ramon

 

[VenA]

Maak gebruik van het autofilter of plaats een voorbeeldje

 

[HSV]

Omdat er geen kopregel is.

Sub hsv()
Dim cl As Range
Application.ScreenUpdating = False
 Rows("1:105").Hidden = False
  For Each cl In Range("b1:b105")
    If cl <= 0 Then cl.EntireRow.Hidden = True
  Next cl
End Sub

Of:

Sub hsv()
Dim cl As Range
Application.ScreenUpdating = False
 Rows("1:105").Hidden = False
  For Each cl In Range("b1:b105")
    If cl =0 or cl = "" Then cl.EntireRow.Hidden = True
  Next cl
End Sub

 

[Bakkerbakgraag]

Maak gebruik van het autofilter of plaats een voorbeeldje

Je hebt gelijk. Het staat geplaatst bij mijn volgende reactie.

 

[Bakkerbakgraag]

Beste Harry bedankt voor je snelle antwoord. Toch kom ik er niet helemaal uit.
Om het e.e.a. te verduidelijken, heb ik mijn bestandje bijgevoegd.

In het tabblad "Lesstof weektaak" voer ik opdrachten in. Die verschijnen in kolom B op het blad "Taakoverzicht". Nu wil ik
dat een complete regel verborgen wordt, wanneer er geen waarde is ingevuld of de waarde in kolom B nul is.

Is het ook mogelijk dat de macro iedere keer uitgevoerd wordt, wanneer ik wissel tussen de tabbladen (en blad "Taakoverzicht" open)?

 

[HSV]

Hallo Ramon,

Je hebt toch een koptekst.
Zoals @VenA al omschreef.

In moduleblad 'Taakoverzicht'.

Private Sub Worksheet_Activate()
If AutoFilterMode Then AutoFilterMode = False
 Cells(1).CurrentRegion.AutoFilter 2, "<>0", 1, "<>"
End Sub

 

[Bakkerbakgraag]

Beste Harry,
sorry maar ik ben een onwijze noob. Is het enige wat ik nodig heb, jouw laatste code? Ik heb deze in een module gezet in het blad "Taakoverzicht", maar er gebeurt niks.
Sla ik wat over?

 

[HSV]

Hier werkt het prima Ramon.

 

[Bakkerbakgraag]

Harry, dit is echt super! Helemaal niet aan gedacht om met filters te werken.
Nu wil ik dit echter in mijn eigen werkmap opnemen, maar ik kan alleen maar "tekstfilters" aanvinken
en geen "getalfilters". Heb je misschien nog een laatste tip voor me?

 

[HSV]

Maak een gelijkend voorbeeldbestand, er zal vast wel iemand kijken voor een oplossing.

 

[Bakkerbakgraag]

Beste Harry,
ik weet niet wat ik fout deed, want alles werkt.
Hartstikke bedankt voor je hulp!

Ramon