uitgebreid filter

[kibus]

Help,
Hoe krijg ik het voor mekaar dat het criteria range zich vult met een current selectie


Dim test As Range

Range("AB1").Select
test = Selection.CurrentRegion.Select

Range("A1:M20528").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("test"), Unique:=False

alvast bedankt

 

[Wigi]

Dim test As Range
Set test = Range("AB1").CurrentRegion
Range("A1:M20528").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
test, Unique:=False

Wigi

 

[kibus]

Dank je wel,
deze code vond ik op de site werkt ook prima



Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="art", RefersTo:=Selection

Range("A1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="tabel", RefersTo:=Selection

Range("=tabel").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("=art"), Unique:=False

 

[Wigi]

Ik betwijfel of dat van die

"=tabel"

en

"=art"

gaat werken. En .Select moet je ook proberen vermijden.

Wigi