Geplaatst: Vandaag, om 12:55 Onderwerp: bereik van een autofilter in vba
--------------------------------------------------------------------------------
Hallo nogmaals,
Ik heb nog een vraag waar ik al uuuuren op worstel: het bereik van een autofilter.
Het filter krijg ik wel voor elkaar met :
Selection.AutoFilter Field:=(ActiveCell.Column) - 1, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>0"
Maar ik wil alleen de cellen uit die kolom kopieeren. Ik heb deze gevonden:
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy
Maar dan krijg ik alle kolommen van dat bereik.
met:
Range(Selection, Selection.End(xlDown)).Select
selecteert hij maar 1 rij terwijl het er meer zijn!
Heeft iemand een idee/ oplossing?
Marjan
--------------------------------------------------------------------------------
Hallo nogmaals,
Ik heb nog een vraag waar ik al uuuuren op worstel: het bereik van een autofilter.
Het filter krijg ik wel voor elkaar met :
Selection.AutoFilter Field:=(ActiveCell.Column) - 1, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>0"
Maar ik wil alleen de cellen uit die kolom kopieeren. Ik heb deze gevonden:
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy
Maar dan krijg ik alle kolommen van dat bereik.
met:
Range(Selection, Selection.End(xlDown)).Select
selecteert hij maar 1 rij terwijl het er meer zijn!
Heeft iemand een idee/ oplossing?
Marjan