Filtern mit mehr als 2 Kriterien

Forumthread: Filtern mit mehr als 2 Kriterien

18.05.2006 14:01:10

babs

Hallo,
ich habe eine Tabelle mit einer Spalte (über 900 Zeilen). Nun möchte ich per VBA-Macro die Zeilen herausfiltern (ausblenden), die die verschiedenen Zeichenketten in den Filter-Kriterien enthalten. Alle Inhalte, die die Zeichenketten nicht haben, sollen sichtbar bleiben. Es gibt 5 Kriterien.
Vielen Dank im voraus.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Filtern mit mehr als 2 Kriterien

18.05.2006 14:22:58

Peter
AW: Filtern mit mehr als 2 Kriterien

18.05.2006 14:49:08

babs
AW: Filtern mit mehr als 2 Kriterien

18.05.2006 14:23:12

Peter

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.

AW: Filtern mit mehr als 2 Kriterien

18.05.2006 14:49:08

babs

Vielen Dank.
Hat geklappt. Ist doch immer wieder toll, hier Hilfe zu finden.
Einen schönen Tag noch.
Gruß Babs

AW: Filtern mit mehr als 2 Kriterien

18.05.2006 14:23:12

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.

Beliebteste Forumthreads (12 Monate)

Forumthread: Filtern mit mehr als 2 Kriterien

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread