Eingabefilter

[lisi]

Hallo zusammen,
 ich habe ein Problem und hoffe ihr könnt mir weiterhelfen. Ich möchte gerne in Excel ein Art Suchfeld programmieren...dies soll in einer Zelle sein und dort soll man durch Eingabe eines Wortes eine Filterfunktion auslösen, die dann in der gesamten Tabelle nach dem Wort sucht und dann die Zeilen in der das Wort vorkommt markiert und die anderen ausblendet.

 Leider bin ich Anfängerin in VBA und hab über Google nur folgendes herausgefunden, das leider nicht funktioniert.
 Sub FilterkriteriumausZelle ()
 With Tabelle1
 If Not . AutoFilterMode= True Then
 .Range ("A1").AutoFilter
 .Range ("A1").AutoFilter Field:=1,2,3,4,5,6,7,8,9,10,11,12,13,14, _
 .Criteria1:= .Range ("A6").Value
 End If
 End With
 End Sub

 Das Suchfeld soll in Zelle A6 sein, die Tabelle hat 14 Spalten und über 100 Zeilen

 Vielen vielen Dank vorab :-)
 Grüße, Lisi