Filtrering i tabeller

Hej,

Prøv nedenstående, hvor du skal skifte tabelnavnet ud med det navn din tabel har. Du skal også skifte Field nummeret ud med det nummer kolonne i tabellen der skal filtreres på, og sidst så skal criteria1 range skiftes ud til det felt du nu engang vil skrive værdien der skal filtreres efter.

Du kan jo lave noget med en dropdown og noget lopslag, således at makroen kan køres hver gang der vælges en ny værdi. Der er massere af muligheder.

Det skal lige siges at jeg bare har optaget makroen, og at jeg ikke er nogen VBA haj på nogen måde, så det kan sikkert sagtens laves mere elegant.....men det virker her hos mig

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:=Range("F1").Value
   
   
End Sub

Mvh

Martin

Hej Martin

Det ser ud til at du har fanget lige netop den pointe jeg er ude efter.

Jeg er heller ingen VBA haj (det vil sige jeg har sneget mig uden om alt for længe), men det er da en begyndelse

Cool! Takker :)