VBA Filterprogramierung

[mile85]

Hallo

Ich versuche vergeblich eine Schaltfläche anzulegen, die per Eingabe als Filter dient.

Mein Code:

     Dim x As String

     x = InputBox("Bitte den gewünschten MA eingeben")
     Me.Filter = "[Mitarbeiter]='" & x & "'"
     Me.FilterOn = True

Funktioniert so weit so gut, jedoch muss man  in der Inputbox den exakten Namen eingeben und mein Wunsch wäre ,dass es über die "Enthält" Funktion filtert, sodass ich z.B nur den Vornamen eingeben muss.

Kann mir da wer helfen?

Danke im Voraus

[DF6GL]

Hallo,

etwa so:

Me.Filter = "[Mitarbeiter]  LIKE '*" & x & "*'"