Excel Suchfunktion

[outbreak]

Juhu ich habs geschafft, einmal mit einem SVerweis, in de einen Liste,
und einmal mit einem Filter Makro:
Schaut ungefähr so aus.

Sub Namenssuche()
Dim Suchbegriff As String
Suchbegriff = InputBox("Namenssuche:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=2
Else
Selection.AutoFilter Field:=2, Criteria1:="=*" & Suchbegriff & "*"
End If
End Sub
Sub Handysuche()
Dim Suchbegriff As String
Suchbegriff = InputBox("Handysuche:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=1
Else
Selection.AutoFilter Field:=1, Criteria1:="=*" & Suchbegriff & "*"
End If
End Sub
Sub Mailsuche()
Dim Suchbegriff As String
Suchbegriff = InputBox("Mailsuche:", "AutoFilter")
If Suchbegriff = "" Then
Selection.AutoFilter Field:=3
Else
Selection.AutoFilter Field:=3, Criteria1:="=*" & Suchbegriff & "*"
End If
End Sub

Das alles mit einem Button verlinkt und fertisch.

Noch einen Resetfilterbutton.

ActiveSheet.Range("$A$5:$F$901").AutoFilter Field:=1
ActiveSheet.Range("$A$5:$F$901").AutoFilter Field:=2
ActiveSheet.Range("$A$5:$F$901").AutoFilter Field:=3

Und die Sache hat sich.