23.04.2020, 16:00
Hallo Zusammen,
mein kleines Projekt hat eine neue Frage aufgeworfen:
Ich habe eine Tabelle mit 6 Spalten mit verschiedenen Inhalten.
Jetzt möchte ich den Autofilter drüber laufen lassen, wenn ich einen in mein "Suchfeld" etwas eingebe.
Ich versuche verzweifelt die Formel in eine If Schleife zu packen, sodass wenn er den Begriff in Spalte 6 nicht findet, dann in 5 geht, usw.
Sollte er den Begriff zum Schluss nicht finden, so soll einfach eine MsgBox aufgehen.
folgend Formel benutze ich für die Filterung nach dem Suchbegriff:
"Dim Suchfeld As Range
Sub Suchen_und_filtern()
Set Suchfeld = Worksheets("Datentabelle").Range("E1")
'Filter zurück setzen
Worksheets("Datentabelle").Range("Tabelle2").AutoFilter
Worksheets("Datentabelle").Range("Tabelle2").AutoFilter 6, Criteria1:=Suchfeld.Value
End Sub"
In E1 wird der Suchbegriff eingegeben und der Filter läuft aktuell nur über Spalte 6.
Geht das via VBA oder wäre eine Formel sinnvoller?
Danke vorab für eure Hilfe :)
mein kleines Projekt hat eine neue Frage aufgeworfen:
Ich habe eine Tabelle mit 6 Spalten mit verschiedenen Inhalten.
Jetzt möchte ich den Autofilter drüber laufen lassen, wenn ich einen in mein "Suchfeld" etwas eingebe.
Ich versuche verzweifelt die Formel in eine If Schleife zu packen, sodass wenn er den Begriff in Spalte 6 nicht findet, dann in 5 geht, usw.
Sollte er den Begriff zum Schluss nicht finden, so soll einfach eine MsgBox aufgehen.
folgend Formel benutze ich für die Filterung nach dem Suchbegriff:
"Dim Suchfeld As Range
Sub Suchen_und_filtern()
Set Suchfeld = Worksheets("Datentabelle").Range("E1")
'Filter zurück setzen
Worksheets("Datentabelle").Range("Tabelle2").AutoFilter
Worksheets("Datentabelle").Range("Tabelle2").AutoFilter 6, Criteria1:=Suchfeld.Value
End Sub"
In E1 wird der Suchbegriff eingegeben und der Filter läuft aktuell nur über Spalte 6.
Geht das via VBA oder wäre eine Formel sinnvoller?
Danke vorab für eure Hilfe :)