Button zum Filtern

[DaNCeLikEShiVa]

Hallo,

ich habe eine Telefonliste und würde dort gerne Button einsetzen, wie in meiner Beispieldatei, wenn ich auf die Wurst klicke sollen alle Zeilen angezeigt die das Wort
"Wurst" beinhalten. Wie müßte da der Code aussehen?

Gruß
DaNCeLikEShiVa

[Kuwer]

Hallo,

Private Sub CommandButton1_Click()
   Range("A5:L5").AutoFilter Field:=7, Criteria1:="=Wurst"
End Sub

Gruß Uwe

[DaNCeLikEShiVa]

Hallo,

das sieht schonmal ganz gut aus, danke. Es filtert aber leider nur die 7te Spalte, gibt es eine Möglichkeit das man alle Spalten in die Suche mit einbezieht?

Gruß
DaNCeLikEShiVa

[Kuwer]

Hallo,

Es filtert aber leider nur die 7te Spalte, gibt es eine Möglichkeit das man alle Spalten in die Suche mit einbezieht?

mit dem Spezialfilter z.B. so:

Private Sub CommandButton1_Click()
   Dim i As Long
   Dim strSuchBegriff As String
   Dim oWs As Worksheet
   strSuchBegriff = "Wurst"
   Application.ScreenUpdating = False
   Set oWs = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
   Me.Range("A5:L5").Copy oWs.Cells(1)
   For i = 1 To oWs.Cells(1).CurrentRegion.Columns.Count
       oWs.Cells(i + 1, i) = strSuchBegriff
   Next i
   Me.Range("A5").CurrentRegion.AdvancedFilter xlFilterInPlace, oWs.Cells(1).CurrentRegion
   oWs.Parent.Close False
   Application.ScreenUpdating = True
End Sub

Gruß Uwe

[DaNCeLikEShiVa]

Hallo Uwe,

danke Dir für die Hilfe. Läuft wie ich es mir vorgestellt habe. ;)

Gruß
DaNCeLikEShiva