Listning af forekomster

Sæt en overskrift ind på A1 kør så makroen

Sub Makro3()
'
' Makro3 Makro
' Makro indspillet 10-12-2008 af hb
'

'
    Columns("A:A").Select
    Range("A1:A8").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _
        ), Unique:=True
End Sub


Manuelt er det Data > Filter >Advanceret filter, husk flueben i  Kun unikke poster

Tak for det Kabbak. Venligst send mig dit svar så jeg kan tildele points.
Pfba

et svar ;-))