Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filtern mit mehr als 2 Kriterien

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
Anzeige
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.
Anzeige
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.
Anzeige

309 Forumthreads zu ähnlichen Themen

Summwenn mit mehreren Arbeitsblaettern/Kriterien
Alex

Hallo @ all
Ich habe mal wieder ein Problem:
Ich habe die Arbeitsblaetter 1-31 und moechte von dort jeweils die Werte aus den Zellen G2:G32 summieren wenn Die Zellen A und B jeweils eine entsprechende Bedingung erfuellen.
Bisher arbeitete ich nur mit einer Bedingung in den Zellen de...
12.08.2008 13:20:00
Thread-ID: 1001177
4 Beiträge
Anzeige
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge
Liste mit 2 Kriterien sortieren...
Uwe

Guten Abend an Alle,
brauche mal Hilfe bei der sortierung einer liste.
In F1 soll der beste Spieler aus der Liste angezeigt werden, der die kürzeste Zeit benötigt hat, und dabei am wenigsten Fehler gemacht hat.
...wie kann man sowas machen.
Mit der Funktion Rang und KKleinste ha...
19.10.2008 20:47:00
Thread-ID: 1017528
7 Beiträge
Anzeige
Suchen mit vorgegebener Spaltenüberschrift
Bernd

Hallo,
wie kann ich einer Formel wie z.B. ZÄHLENWENN(Test!M:M;"bestimmter Text"), wo ja die M-Spalte durchsucht wird, M:M durch eine fest vorgebene Spaltenüberschrift (steht immer in der 1. Zeile), so dass die Formel bei Verschiebung von Spalten nicht in der falschen Spalte M sucht?
Vie...
21.11.2008 09:33:00
Thread-ID: 1026630
4 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Suchen mit 3 Kriterien
Schmidt

Hallo zusammen
Ich habe eine Tabelle , in der ich mit 3 Suchkriterien einen Wert errechnen möchte.
Mit Sverweis und der WENN-Funktion konnte ich das Problem nicht lösen. Könnte mir bitte jemand hilfreich zur Seite stehen.
https://www.herber.de/bbs/user/58658.xls
21.01.2009 14:41:00
Thread-ID: 1042200
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
3
6
2
3
4
4
9
6
2
1
3
9
4
4
3
2
6
8
4
7
3
7
4