Filtern eines markierten Bereichs
26.07.2004 19:45:21
Jan
ich möchte gerne einen von mir vorher markierten Zell- bzw. Spaltenbereich nach einem Suchbegriff filtern, so dass alle Zeilen angezeigt werden, die den Suchbegriff (auch als Teilzeichenkette oder Teilwort) in mindestens einer Spalte enthält.
Mit folgendem Makro, basierend auf dem Autofilter, kann ich auf irgendeine Zelle in einem Arbeitsblatt klicken und die betreffende Spalte nach dem Suchbegriff filtern, den ich über ein Input-Fenster eingebe. Wenn ich hier aber einen Spaltenbereich markiere wird immer nur die eine (ich glaube, die erste markierte) Spalte berücksichtigt. Vielleicht muss hier mit dem Spezialfilter gearbeitet werden?
Sub Substring_Filtern()
'Irgendeine Zelle in der Spalte
'anwählen, die gefiltert werden soll
'Begriff in Input-Fenster eingeben
Dim Spalte As Variant
Dim Begriff As Variant
Spalte = Selection.Column
Begriff = InputBox("Bitte Suchbegriff eingeben...", "Teilzeichenketten-Suche")
Columns("A:I").AutoFilter _
Field:=Spalte, _
Criteria1:="=*" & Begriff & "*", Operator:=xlAnd
End Sub