Mit dem folgenden Makro wird ein Name in Tabelle1 gesucht.
In Zelle A1 wird der gesuchte Name eingetragen, in Zelle B1 steht immer z.
Ab Zelle A3 bzw. in Spalte A wird gesucht.
Sub Filter_Adressen()
Range("A3").Select
Selection.AutoFilter Field:=1, Criteria1:=">=" & Range("A1").Value, Operator:=xlAnd, _
Criteria2:="<" & Range("A1").Value
End Sub
Eine andere Möglichkeit ist mit einer TextBox in einer UserForm den Namen in die Zelle A1 einzutragen. Wie das geht ist mir bekannt.
Aber gibt es nicht eine einfachere Lösung ohne A1 und B1 anzusprechen?
Für eine Lösung bin ich dankbar.
Mit freundlichen Grüßen
Ernst Dunkel