Filtrering i excel2010 ud fra valg i dropdown boks

Var det ikke nemmere blot at konvertere de 700 rækker til en tabel (hvis det ikke allerede er sket), og så bruge det filter, som er indbygget i en tabel?

Et lille vba forslag...

Der er taget udgangspunkt i at din celle der skal filtreres efter er "B3"

placeres i fanens modul..
- Højreklik på fanen
- Vælg "Vis programkode"
- indsæt nedenstående


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

If Intersect(Target, Range("B3")) Is Nothing Then
Selection.AutoFilter Field:=1, Criteria1:=Range("b3"), Operator:=xlAnd
End If

End Sub

God fornøjelse ;-)

@tbak.
Det er ikke nok. Dropdown boksen her en anden funktion hvor der bliver lavet en række beregninger, så jeg kan ikke nøjes med alm. filter.

@KurtAO
Jeg forsøger med dit forslag, men er nok ude i noget jeg ikke er vant til at arbejde med. Får lige en kollega til at kikke på det først på ugen.

Jeg har lagt et eksempel her:
http://gupl.dk/687148/

Jeg har her blot lavet en celle hvorfra filtreringen sker.

Der kan skrives hele ord i cellen som listen skal filtreres efter - men skriv fx *Paul* - så fås alle linier i  hvor Paul indgår. * Fungerer altså som "wildcard".

God fornøjelse ;-)

Kopden der der brugt ligger i arkets kodemodul.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

If Not Len(Range("B2")) > 1 Then Exit Sub

If Intersect(Target, Range("B2")) Is Nothing Then
Selection.AutoFilter Field:=1, Criteria1:=Range("b2"), Operator:=xlAnd

' Field 1 betyder at der filtreres på første kolonne i det filtrerede område

End If

End Sub

mvh Kurt

Øh...  vi fandt da vist aldrig ud af om du fik løst dit problem? mvh Kurt