Opgelost Selectie ongedaan maken na en zoek opdracht.

[Dokman]

Hallo,

ik heb en tabel die begint bij A5 tot L5 en dan oneindig door naar onderen.

In A2 heb ik en zoekfunctie gemaakt met script zie hieronder. Deze zoekt
netjes in A5 en daar onder naar wat ik wil hebben.

Maak ik A2 weer leeg. Dan moet hij ook de selectie in de filter resetten.
Dat alles weer zichtbaar wordt. in de tabel.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        If Target <> vbNullString Then
            ListObjects(1).Range.AutoFilter 1, Target
        Else
            ListObjects(1).AutoFilter.ShowAllData
        End If
    End If
End Sub

Hoop dat iemand mijn kan helpen.

 

[emields]

Weeral voorbeeldje vergeten?

 

[Enigmasmurf]

Als ik zo van ver naar je macro kijk, ook zonder voorbeeldje, dan ben ik geneigd te denken dat die al exact doet wat je wil...
Dus toch voorbeeldje bezorgen zodat we kunnen zien of er iets anders scheelt?

 

[Dokman]

Bestandje is ingekort en toegevoegd. In het paarse vlak moeten de gegevens in gevoerd worden.

 

[edmoor]

Verwijder de samenvoeging van A2 en A3, dan werkt het prima.

 

[Dokman]

Ja dat was hem dank u wel.