AW: Filtern mit mehr als 2 Kriterien
18.05.2006 14:22:58
Peter
Hallo babs,
da ich weder weiß, was du filtern willst, noch in welcher Spalte, hier einmal zwei Vorschläge, wie es gehen könnte:
'
' herausfiltern von fünf Bedingungen
'
Public
Sub Filtern_I()
Dim lzeile As Long
For lzeile = 1 To Range("A65536").End(xlUp).Row
If Range("A" & lzeile).Value = "ABC" Or _
Range("A" & lzeile).Value = "DEF" Or _
Range("A" & lzeile).Value = "GHI" Or _
Range("A" & lzeile).Value = "JKL" Or _
Range("A" & lzeile).Value = "MNO" Then
Rows(lzeile).EntireRow.Hidden = True
End If
Next lzeile
End Sub
Public
Sub Filtern_II()
Dim lzeile As Long
For lzeile = 1 To Range("A65536").End(xlUp).Row
If UCase(InStr(Range("A" & lzeile).Value, "ABC")) > 0 Or _
UCase(InStr(Range("A" & lzeile).Value, "DEF")) > 0 Or _
UCase(InStr(Range("A" & lzeile).Value, "GHI")) > 0 Or _
UCase(InStr(Range("A" & lzeile).Value, "JKL")) > 0 Or _
UCase(InStr(Range("A" & lzeile).Value, "MNO")) > 0 Then
Rows(lzeile).EntireRow.Hidden = True
End If
Next lzeile
End Sub
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.