getallen uitsluiten

[Spiesse]

Guys,

in volgend bestand zit ik met een tricky one

in kolom a staan getallen van 1 tot 2000 en hoger.
hieruit zouden de getallen tussen 1500 en 1700 moeten verborgen worden...

als ik in de aangepaste filter < 1500 neem en > 1700 als filter, dan worden alle cellen gefilterd...

indien mogelijk zou dit via vba moeten...

ik heb reeds een macro die enkel getallen tussen 1499 en 1700 toont, maar nu zou het dus omgekeerd moeten zijn...

Sub McrFilterBedienden()
'
' McrFilterBedienden Macro
' deze macro zet het wnnr om in getallen en filtert dan de bedienden uit de lijst
'

'
    Range("A2").Select
    ActiveSheet.ListObjects("Tabel25").Range.AutoFilter Field:=1, Criteria1:= _
        ">=1499", Operator:=xlAnd, Criteria2:="<=1700"
    Range("A1").Select
End Sub

Graag jullie hulp

Gegroet, spiesse

Bekijk bijlage getallen filteren.xlsx

 

[Thoralf]

Zou het volgende ook kunnen werken?

    ActiveSheet.ListObjects("Tabel25").Range.AutoFilter Field:=1, Criteria1:= _
        "<1500", Operator:=xlOr, Criteria2:=">1700"

 

[Spiesse]

hey thoralf, ik heb deze ook geprobeerd maar dan zijn alle cellen weg... iets raars...

nu, ik heb ondertussen een andere manier in het leven geroepen... de getallen die gefilterd moeten worden heb ik via VW een kleur gegeven, en daarop dan gefilterd in de macro...

op die manier raak ik er ook...

deze mag dus eigenlijk al op opgelost...

 

[sylvester-ponte]

">1700", Operator:=xlOr, Criteria2:="<1499"

 

[sylvester-ponte]

weer te laat

 

[sylvester-ponte]

met deze regel wis je de vorige filters:

ActiveSheet.ListObjects("Tabel1").Range.AutoFilter

 

[Spiesse]

hey syl
beter laat dan nooit!
ik ga zeker je voorstel in overweging brengen

alleszins bedankt voor het meedenken!

greets, spiesse