Lav liste i excel

hvad med Autofilter ? 
eller vil du have resultatet over i et nyt ark ?

Altså jeg kan godt lave det manuelt, men ville egentligt have lavet det så automatisk som muligt... og ja, resultatet skal vises i et andet ark

Ok:
Vi siger du har date i Ark1 i a og b kolonne, med overskrifterne "type" og "tekst"
i ark2 laver du følgende overskrifter
A1 = type
C1= type
D1 = tekst

så kører du koden her, når du har skrevet noget i ark2 A2

Sheets("Ark1").Range("A1:B7").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("C1:D2"), Unique:=False

kabbak, tak!
Svar?

et svar ;-))
har du allerede testet ??

Jep, det virker efter hensigten!