Filter op 2 collums

[DonJonsson]

Hallo,

Ik heb een tabel, waarom rij A de start week is en rij B de eind week.

Hoe kan ik zo filteren/krijgen dat hij alleen laat zien wanneer die week tussen de van / tot valt.

Voorbeeld:

Ik will dab bijvoorbeeld alles zien wat in "week 46" valt:

 

[AD1957]

zo ?

 

[DonJonsson]

Dankje voor het voorbeeld, maar het werk niet helemaal.
Ik heb 2 voorbeeld foto's als bijlage gemaakt.

Actie:


Uitkomst:

 

[AD1957]

En waar staat week 46 in de tabel?

 

[DonJonsson]

Allereerst bedankt dat je wil helpen! Vind het lastig om het goed te verwoorden.

de zoek criterea in dit geval is alles wat in week 46 tm week 46 valt.

De database in dit geval heeft rijen van week 1 t/m 52, deze zou hij moeten laten zien omdat 46 binnen de range valt
De rijen die bijvoorbeeld week 1 t/m 45 en 47 /m 52 mag hij niet laten zien om 46 bij beide niet in die range valt.

Ik hoop dat ik hem zo een beetje duidelijk heb verklaard .

 

[AD1957]

Je hebt het over 52 rijen.
Mij lijkt het voorbeeldbestand in #1 niet representatief.
Plaats eens een duidelijker voorbeeldbestand want voor mij is het nog steeds niet duidelijk.

 

[VenA]

Met een hulpkolom is het vrij eenvoudig te doen. Je kan ook eens kijken naar het geavanceerde filter eventueel in combinatie met een macro.

 

[AlexCEL]

Probeerseltje... (met hulpkolom en macro die filter aanstuurt)

 

[VenA]

Probeerseltje...

:thumb:

Als we toch met VBA aan de gang gaan dan maar het geavanceerde filter zonder hulpkolom.

 

[AD1957]

En ik heb nog veel te leren.:d

 

[AlexCEL]

Ik ook

 

[VenA]

Ik ook.:d

 

[HSV]

Zoals 'Activesheet' overbodig is.

Volgens mij ook wel zonder hulp-formule Z1.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$1" And Target <> "" Then
    ListObjects(1).Range.AutoFilter 2, ">=" & Range("b1")
    ListObjects(1).Range.AutoFilter 1, "<=" & Range("b1")
   Else
    ListObjects(1).Range.AutoFilter
  End If
End Sub

 

[DonJonsson]

Wow, beide manier zijn erg handig!
Dankje!