Variabel bereik in filter

[youdeni]

Beste mensen,

Wederom een vraag. Ik wil graag een filter in mijn VBA code opnemen waarvan de range variabel. Het gaat om het vet gedrukte bereik in onderstaande
code. Ik heb d.m.v. een code wel de laatste range gevonden, maar ik weet niet hoe ik de onderstaande macro aanpas zodat het bereik mee wijzigt.Bekijk bijlage Vraag_forum.xlsm

strRnge = "A" & RowEnd & ":AB" & strRnge
Range(strRnge).Select


Range("A1:K1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$7").AutoFilter Field:=8, Criteria1:="11-12-12"
ActiveSheet.Range("$A$1:$K$7").AutoFilter Field:=10
End Sub

 

[spaarie]

Gebruik dan ipv .Range("$A$1:$K$7") > .UsedRange

With Sheets(1).UsedRange
    .AutoFilter 8, "11-12-12"
    .AutoFilter 10
End With
End Sub

Plaats ander je hele code eens...

 

[youdeni]

Spaarie, Ik begrijp niet wat je precies bedoeld met: Plaats je hele code. Bovenstaande was wat ik tot nu toe had. Eigenlijk 2 losse code's.
Als ik jouw code gberuik krijg ik de foutmelding:End with wordt verwacht.

Ben een beginnende macro gebruiker Dus maak mijn codes met behulp van de macro recorder en een beetje zelf pielen Zo was ik tot bovenstaande gekomen.

 

[spaarie]

Als ik jouw code gberuik krijg ik de foutmelding:End with wordt verwacht.

:shocked: OEPS! > Aangepast

Ik begrijp niet wat je precies bedoeld met: Plaats je hele code. Bovenstaande was wat ik tot nu toe had. Eigenlijk 2 losse code's.

Oke geen probleem, als dat het was kan je nu met mijn code hetzelfde doen.

Dus maak mijn codes met behulp van de macro recorder en een beetje zelf pielen.

:thumb: zie ook mijn onderschriftje, zo is denk ik menigeen begonnen...