AutoFilter per Excel-Makro steuern

Question

Hallo Forum,

wollte folgendes mit Excel 2010 machen:

1. man hat eine Zelle (A1) wohin man seine Suchwort schreibt, z.B. Anton

2. Eine Spalte (D) enthält Zeilen die verschiedene Namen enthalten (auch mehrere Namen pro Zelle)

3. Ich gebe "Anton" in A1 und es wird die Spalte D autofilriert (benutzerdefinierte Filtrierung mit Bedingung "enthalten" (A1))

4. Ich sehe nur die Zeilen wo die Spalte D Anton enthält

Geht das? Kann gerne noch Unklarheiten besser beschreiben falls nötig.

Answer 1

Hallo,

folgender Code funktioniert im Bereich D1:D100 (kannst Du anpassen)
In einer Zelle darf immer nur 1 Name stehen!

Option Explicit

Sub Filter()
Columns("D:D").AutoFilter
ActiveSheet.Range("$D$1:$D$100").AutoFilter Field:=1, Criteria1:=Range("A1")
Range("A1").Select
End Sub

Gruß
Rainer