Fast automatisch Filternin Excel?

Question

Hallo an alle,

Suche nach einem Makro, mit dem ich folgendes erreiche:
selektiere Filter (selection.AutoFilter Field:=7)
öffne im Filtermenü das suchfeld "benutzerdefiniert"
stelle diese auf "enthält"

und hier dann die manuell den gewünschten Suchbegriff eingeben.

Kann mir jemand helfen? - da mit Makroaufzeichnung das ganze ja nicht funktioniert, da ich zwar bis zum Fenster benutzerdefinierter Filter gelange, aber dann die Aufzeichnung nicht beenden kann bevor ich das Fenster schließe.

Noch genialer wäre natürlich das selbe Makro - in dem ich ein Textfeld(box) habe wo ich dann den gewünschten Suchbegriff eingebe - und das ganze dann nach diesem filtert.

Gruß Volker

Answer 1

Hallo Volker,

hilft das?

Option Explicit

Sub Filter()
Range("A1:M1").AutoFilter
Selection.AutoFilter Field:=7, Criteria1:=InputBox("Filterkriterium eingeben"), Operator:=xlAnd
End Sub

Gruß
Rainer

Answer 2

hi all ^^

die selectierung ist hier unnoetig da in der ersten zeile referenziert wurde

der operator ist auch unnoetig da zur zeit nur ein kreterium abgefragt wird :-)

gruss nighty

Answer 3

@nighty

.... und wenn Du dem Fragesteller den Code nicht so hin schreibst, wie Du es meinst, bist auch Du
unnötig :-(

(Ich habe lediglich dem Code des Makrorecorders die InputBox hinzu gefügt, da das das Anliegen von
Volker war)

Gruß
Rainer