Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon korfuweb vom 10.11.2021, 11:17 Options

Fast automatisch Filternin Excel?

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

Antwort schreiben

Antwort 1 von rainberg vom 10.11.2021, 11:50 Options

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

Antwort 2 von nighty vom 10.11.2021, 14:29 Options

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

Antwort 3 von rainberg vom 10.11.2021, 14:41 Options

@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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken