VBA Autofilter setzen enthält *
25.06.2024 10:28:36
Karsten
ich habe ein Makro dass aus der Tabelle den Autofilter aufrufen soll.
Damit möchte ich den Lieferanten herausfiltern.
Ich arbeite mit "Enthält" damit ich nicht den vollständigen Namen tippen muss.
Funktioniert auch soweit ganz gut, nur bei dem Lieferanten "A2B" bekomme ich keine Ergebnis
Ich vermute, dass das an der Ziffer an 2. Stelle des Namens liegt.
Findet Ihr den Fehler?
Danke
Mein Code:
Sub Lieferant_finden()
On Error Resume Next
Dim lieferant As String
Dim myDataObjFind As DataObject, s_tmp As String
lieferant = InputBox("Lieferant")
If lieferant = "" Then Exit Sub
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=10, Criteria1:="*" & lieferant & " * "
End SubAnzeige