Liste med filter

Her er en VBA løsning

i I1 har du din validation
i J1 starter din tabel med filteret data
i G1-G123 står din liste
i cellen til venstre for validation (i dette tilfælde H1) står det bogstav(er) den skal sortere på

når din validation celle bliver markeret opdateres de filteret data



Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Not Intersect(Target, Range("I1")) Is Nothing Then  'test celle I1
  Application.ScreenUpdating = False
   
    Set ws2 = ActiveSheet.Range("J1")
    Set tabelorg = ActiveSheet.Range("G1:G123")
    num = Len(Target.Offset(0, -1).Value)
    t = 0
    For Each c In tabelorg
        If UCase(Target.Offset(0, -1).Value) = UCase(Left(c.Value, num)) Then
            ws2.Offset(t, 0) = c.Offset(0, -1)
            t = t + 1
        End If
    Next c
    For i = t To 123
      ws2.Offset(i, 0) = ""
    Next i
    Application.ScreenUpdating = True
 
    Exit Sub
fejl:
    MsgBox ("Liste kunne ikke opdateres")
    End If
End Sub

Kunne du bruge min løsning?

?

Det tror jeg. Jeg har ligget syg og har ikke fået det tjekket helt endenu.
Jeg skal nok snart få det gjort.

Jeg har forsøgt at tyde hvad du mener men er ikke helt sikker på hvad du mener
Hvad skal der stå i I1 og i J1 starter min tabel. Betyder det at jeg skal skive listen med A, B ,C her og selve liste (æbler...) i J1-J123?

nææ, der mangler også noget :o)

I kolonne F: æbler, bananer
i kolonne G: a, b,c
i kolonne J: kommer resulatet af filtering, (først når I1 aktiveres)
I1 har du validation (liste, og kolonne J som tabel)
Cellen til venstre for validation (i dette tilfælde H1) står det bogstav(er) den skal sortere på

Nu fik jeg det til at virke, men jeg har fået et problem, for hvis jeg nu skal bruge kollonne nummeret på hvor ex. Pære C så kan jeg kun refferer til den nye liste og det
giver også problemer hvis jeg ønskede at tilføje endnu en kollonne til liste og foretage et lopslag. lopslag giver mig dog under alle omstændigheder problemer da den ikke vil klare dubletter og altid tager den første i rækken.

Ikke helt forstået ?
men det er rigtigt lopslag vil altid tage den første

?