Supportnet / Forum / Tabellenkalkulation
Makro für Autofilter
Frage
Hallöchen,
bin blutiger VBA-Anfänger und habe eine triviale Frage:
wie sieht ein Makro aus, bei dem das Kriterium für den Autofilter aus einer Zelle (bspw A2) entnommen wird d.h. ich gebe in Zelle A2 ein Argument ein, und nach diesem wird gefiltert.
Besten Dank und tschuldigung, dass ich sowas einfaches frage .... ;-)
Antwort 1 von coros
Hi lurchi,
wie kommst Du darauf, dass Deine Frage einfach ist und Dich dafür zu entschuldigen. Für Dich ist die Frage schwer und um solche Fragen zu beantworten gibt es Foren wie Diese.
Es wäre aber noch schön gewesen, wenn Du auch angegeben hättest, nach welcher Spalte gefiltert werden soll. Nachfolgendes Makro filtert nach Spalte A und nach dem Kriterium aus Zelle A2. Der Bereich ist A3 bis F und dort die letzte beschriebene Zeile.
Kopiere das Makro in ein Standard Modul und starte es durch eine Befehlsschaltfläche.
Soll nach einer anderen Spalte als A gefiltert werden, dann musst Du bei dem Befehl
Field:=1
Die Spaltenindexzahl ändern. Die 1 steht für Spalte A, eine 2 für B, eine 3 für Spalte C usw. Ebenso musst Du den Bereich ändern, wenn der bereich bei Dir weiter als bis zur Spalte F geht. Dann in der Zeile
Range("A3:F" & Range("A65536").End(xlUp).Row).Autofilter _
Den Buchstaben F gegen den neuen Spaltenbuchstaben tauschen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich wieder.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
wie kommst Du darauf, dass Deine Frage einfach ist und Dich dafür zu entschuldigen. Für Dich ist die Frage schwer und um solche Fragen zu beantworten gibt es Foren wie Diese.
Es wäre aber noch schön gewesen, wenn Du auch angegeben hättest, nach welcher Spalte gefiltert werden soll. Nachfolgendes Makro filtert nach Spalte A und nach dem Kriterium aus Zelle A2. Der Bereich ist A3 bis F und dort die letzte beschriebene Zeile.
Kopiere das Makro in ein Standard Modul und starte es durch eine Befehlsschaltfläche.
Option Explicit
Sub Autofilter()
Range("A3:F" & Range("A65536").End(xlUp).Row).Autofilter _
Field:=1, Criteria1:=Range("A2")
End Sub
Soll nach einer anderen Spalte als A gefiltert werden, dann musst Du bei dem Befehl
Field:=1
Die Spaltenindexzahl ändern. Die 1 steht für Spalte A, eine 2 für B, eine 3 für Spalte C usw. Ebenso musst Du den Bereich ändern, wenn der bereich bei Dir weiter als bis zur Spalte F geht. Dann in der Zeile
Range("A3:F" & Range("A65536").End(xlUp).Row).Autofilter _
Den Buchstaben F gegen den neuen Spaltenbuchstaben tauschen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich wieder.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von lurchi
Besten Dank coros !
funktioniert tadellos :-)
MFG
lurchi
funktioniert tadellos :-)
MFG
lurchi
Antwort 3 von coros
Hi lurchi,
freut mich,. wenn das AMkro Dir weitergeholfen hat. Danke Dir auch für die Rückmeldung.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
freut mich,. wenn das AMkro Dir weitergeholfen hat. Danke Dir auch für die Rückmeldung.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.