VBA Autofilter

[llleeefffttt]

Hallo, so funktioniert es perfekt.

Vielen Dank dafür :)

[llleeefffttt]

Eine Sache funktioniert nun leider doch noch nicht, wie muss ich den letzten Code anpassen, damit er auch Zellen findet, die als Zahl formatiert sind?

Vielen dank für eure ganzen Hilfen :)

[atilla]

Hallo,

das ginge so:

Code:

Sub FilterealleSpalten()

Dim Suchbegriff
Dim rngFilter As Range

Suchbegriff = Application.InputBox("Suchbegriff eingeben" & Chr(13) & Chr(13) & "(Mit dieser Suche wird auf allen Spalten gesucht und gefiltert)")

If Suchbegriff <> False And Suchbegriff <> "" Then 'nur wenn etwas eingegeben  und nicht abbrechen gedrückt wurde
 If Not IsNumeric(Suchbegriff) Then Suchbegriff = "" * " & Suchbegriff & " * ""
 Application.ScreenUpdating = False
 With ActiveSheet
   If .AutoFilterMode Then If .FilterMode Then .ShowAllData    
   Set rngFilter = Intersect(.Range("$A$1:$F$" & .Rows.Count), .UsedRange)
   With Intersect(rngFilter.EntireRow, .Columns("L"))
     .Formula = "=Countif(" & rngFilter.Rows(1).Address(0, 0) & ", " & Suchbegriff & ")"
     .AutoFilter Field:=1, Criteria1:=">0"
   End With
 End With
 Application.ScreenUpdating = True
End If
Set rngFilter = Nothing

End Sub

[atilla]

und wie folgt, wenn sowohl nach Zahl als auch nach Text gefiltert werden soll:

Code:

Sub FilterealleSpalten_auch_mit_Zahlen()

Dim Suchbegriff 'nicht als String deklarieren!!!
Dim rngFilter As Range

Suchbegriff = Application.InputBox("Suchbegriff eingeben" & Chr(13) & Chr(13) & "(Mit dieser Suche wird auf allen Spalten gesucht und gefiltert)")

If Suchbegriff <> False And Suchbegriff <> "" Then 'nur wenn etwas eingegeben  und nicht abbrechen gedrückt wurde
Application.ScreenUpdating = False
With ActiveSheet
  If .AutoFilterMode Then If .FilterMode Then .ShowAllData
  Set rngFilter = Intersect(.Range("$A$1:$F$" & .Rows.Count), .UsedRange)
  With Intersect(rngFilter.EntireRow, .Columns("L"))
    .Formula = "=Countif(" & rngFilter.Rows(1).Address(0, 0) & ", ""*" & Suchbegriff & "*"")+Countif(" & rngFilter.Rows(1).Address(0, 0) & ", " & Suchbegriff & ")"
    .AutoFilter Field:=1, Criteria1:=">0"
  End With
End With
Application.ScreenUpdating = True
End If
Set rngFilter = Nothing

End Sub

[llleeefffttt]

Funktioniert *happy*