Makro Autofilter auswählen

Question

Hallo,
habe ein Problem und kann es nicht lösen.
Ich brauch ein Makro welches mir ein Feld mit einem Namen mit den schon vorhanden Autofiltern vergleicht und den Filter dann öffnet.

Ich habe eine Liste mit 10 Namen.
Ich möchte im Feld E5 einen Namen eigeben.
Die Namen sind in Spalte B22 über Autofilter auszuwählen, nun möchte ich dass er den entsprechenden Autofilter öffnet, abhängug davon was er in E5 findet.
In E5 steht z.B Maik, dann zeigt er mir nur die Maik daten.

Kann jemand helfen?

Answer 1

Hallo,

solche einfachen Aufgaben kannst du mit dem Makrorekorder lösen.

Dein Code für das Makro könnte z.B. so aussehen:

Sub Filter_setzen()

Selection.AutoFilter Field:=1, Criteria1:=Range("E5")

End Sub

Falls du nicht weißt, wie man den Code einfügt, dann schau mal hier bei Anleitung 3 nach.

Gruß

M.O.

Answer 2

Hallo,
Code in die Tabelle einfügen:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("B22:B" & Range("B65536").End(xlUp).Row)
If Zelle.Text <> Range("E5").Value Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
If Range("E5") = "" Then Cells.Rows.EntireRow.Hidden = False
End Sub

Musterdatei: Namen
Gruß
fedjo