- Es sollen in der ersten Zeile (1:1) 4 Wörter gesucht werden und deren Spalte (Adresse) gefunden werden.
Sinngemäß:
Die folgende Anweisung liefert Dir den (relativen) Spaltenindex.
Dim vSpalte As Variant
vSpalte = Application.Match("Suchbegriff", Rows("1:1"), 0)
...welchen Du dann in Kombination mit Deinem Filterkriterium aus ner Inputbox() verwednen kannst:
RangeBereich.Filter Field:=vSpalte Criteria1:=Inputbox(...)
- Die Filterung wieder aufheben bzw. zurücksetzen.
Da Du ja weisst, welche SPalte Du gefiltert hast, kannst den Filter wieder zurücksetzen:
RangeBereich.Filter Field:=vSpalte
Da Du vermutlich viele Spalten und Kriterien hast, ließe sich vSpalte auch als Array in einer Schleife einsetzen.
|