Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
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
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter mit mehr als 2 "entspricht nicht" Kriterien

Filter mit mehr als 2 "entspricht nicht" Kriterien
25.06.2015 09:47:54
Christian
Hallo Zusammen,
ich habe folgende Problem in VBA:
In einer Spalte befinden sich Namen von Mitarbeitern meiner Abteilung.
Nun kann es aber sein, dass auch Namen von Mitarbeitern einer anderen Abteilung in der Spalte auftauchen. Diese Namen sind immer wieder andere.
Nun möchte ich die Möglichkeit haben nur nach den Namen der Mitarbeiter der anderen Abteilung zu filtern. Ich habe versucht dies über "entspricht nicht" zu lösen, indem ich die Namen der Mitarbeiter meiner Abteilung eingeben habe. Leider ist die Möglichkeit auf zwei Namen begrenzt.
Wie kann ich nun die Spalte so filtern, dass alle Namen bis auf die Namen meiner Abteilung (10 Namen)angezeigt werden?
Danke für Eure Hilfe!
Christian

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
25.06.2015 09:50:24
Matthias
Hallo
Benutze eine 2 Spalte mit den Abteilungen
Dannach filterst Du dann.
Gruß Matthias

AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
25.06.2015 10:15:27
Christian
Hallo Matthias,
erstmal Danke für Deine Hilfe. Leider ist es nicht so einfach zu lösen, wie Du vorschlägst (eine Spalte mit der Abteilung steht mir nicht zur Verfügung). Ich werde daher etwas weiter ausholen müssen.
Ich bekomme eine Auflistung von ca. 10.000 Projekten mit weiterführenden Informationen zu den Projekten (z.B. den Namen des Betreuers, Kosten, Termine usw.) die mit einer Projektnummer eindeutig sind. Für eine Auswertung lese ich nun aus dieser alle Projekte die meine Abteilung betreut ein. Dies geschieht über die eindeutige Projektnummer. Dabei kann es vorkommen, dass Projekte die in meiner Abteilung betreut werden in der Auflistung einen Betreuer aus einer anderen Abteilung haben. Diese lese ich über die Projektnummer mit ein, möchte sie mir aber filtern und anzeigen lassen.
Der Filter sollte derart sein:
Zeige alle Projekte die nicht von Meier, Müller, Schulze, Heinrich betreut werden.
Die gefilterten Werte verwende ich für die Anzeige in einer ListBox mit der ich dann weiterarbeite.

Anzeige
AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
25.06.2015 10:26:19
Daniel
Hi
ohne Hilfsspalte wird das nicht gehen.
1. schreibe in eine eigene Tabelle die Namen der Betreuer, die aus der Liste ausgeblendet werden sollen, in eine Spalte untereinander (bspw in Tabelle2, Spalte A)
2. ergänze deine Projektliste um eine Hifsspalte mit der Formel:
=ZählenWenn(Tabelle2!A:A;B2)
(Zeile 1 ist überschrift, Betreuername steht in Spalte B)
und ziehe diese Formel bis ans Datenende.
wenn jetzt ein Betreuername in der Auflistung von Tabelle2 vorkommt, ist das Ergebnis 1, ansonsten 0.
3. Filtere jetzt die Projektliste in der Hilfsspalte nach "ist gleich 0"
ist jetzt zwar erstmal etwas umständlich wegen der beiden Hifsspalten, aber wenn jetzt neue Betreuer aus anderen Abteilungen hinzukommen oder wegfallen, ergänzt du einfach die Liste in Tabelle2 und filterst neu.
Auch ist der der Autofilter jetzt ganz einfach einzurichten, weil du nur nach 0 filtern musst.
Gruß Daniel

Anzeige
Dann mit VBA
25.06.2015 10:32:31
Matthias
Hallo
Dann schreib die Namen in ein Array
 BCD
1NameProjektBetreuer
2Maier1Name1
3Schulze2Name2
4Lehmann3Name3
5Schmidt4Name4


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Option Explicit Sub Filter() Range("B1:B5").AutoFilter Field:=1, Criteria1:=Array("Maier", "Lehmann"), Operator:= _ xlFilterValues End Sub Gruß Matthias

Anzeige
AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
25.06.2015 12:48:27
JoWE
Hallo Christian,
schon mal so probiert? Siehe Grafik:
Userbild
Gruß
Jochen

AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
26.06.2015 08:00:16
Christian
Hallo Liebe Mitstreiter,
erstmal recht herzlichen Dank für die vielen Anregungen welche auch zur Lösung beigetragen haben.
Die Idee direkt zu filtern habe ich zwar nicht erreicht aber ich löse es mit einem Zwischenschritt, indem ich alle Namen kopiere, Duplikate lösche und zeilenweise die Namen prüfe. Alle Namen die zu meiner Abteilung gehören lösche ich raus, so dass nur die Namen aus den anderen Abteilungen übrig beleiben.
Nach diesen Namen filter ich dann in meiner ursprünglichen Tabelle. Nicht elegant aber es funktioniert.
Für Abschreiber ;-) hier meine Lösung 

Sheets("Projektdaten").Range("F5:F500").Copy Destination:=Sheets("Temp3").Range("A1")
Sheets("Temp3").Range("A1:A500").RemoveDuplicates Columns:=1, Header:=xlNo
If Sheets("Projektdaten").AutoFilterMode Then
If Sheets("Projektdaten").FilterMode Then Sheets("Projektdaten").ShowAllData
End If
For y = 1 To Sheets("Temp3").[A50].End(xlUp).Row + 1
If Sheets("Temp3").Cells(y, 1).Value = "Name1/" _
Or Sheets("Temp3").Cells(y, 1).Value = "Name2/" _
Or Sheets("Temp3").Cells(y, 1).Value = "Name3/" _
Or Sheets("Temp3").Cells(y, 1).Value = "Name4/" _
Or Sheets("Temp3").Cells(y, 1).Value = "Name5/" _
Or Sheets("Temp3").Cells(y, 1).Value = "Name6/" _
Or Sheets("Temp3").Cells(y, 1).Value = "Name7/" Then
Sheets("temp3").Cells(y, 1).Value = ""
Rows(y).Delete shift:=xlUp
y = y - 1
End If
Next y
ReDim PL_Sonstige(1 To Sheets("Temp3").[A50].End(xlUp).Row)
For y = 1 To Sheets("Temp3").[A50].End(xlUp).Row
PL_Sonstige(y) = Sheets("Temp3").Cells(y, 1).Value
Next y
Application.DisplayAlerts = False
Sheets("Temp3").Delete
Application.DisplayAlerts = True
Sheets("Projektdaten").Range("A4:F4").AutoFilter Field:=6, Criteria1:=PL_Sonstige,
Operator:=xlFilterValues

Anzeige
AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
26.06.2015 23:46:08
Matthias
Hallo Christian
Zitat
Die Idee direkt zu filtern habe ich zwar nicht erreicht
Hat denn mein 2.Bsp. nicht funktioniert?
Gruß Matthias

AW: Filter mit mehr als 2 "entspricht nicht" Kriterien
29.06.2015 09:13:03
Christian
Hallo Matthias,
ich hatte Dein Beispiel völlig übersehen und mit Deinem Beitrag vom 25.06.2015 10:32:31 konnte ich auf die Schnelle nicht recht was anfangen:-) Deine Lösung vom 26.06.2015 06:45:59 gefällt mir gut und ich werde versuchen sie bei Zeiten noch zu integrieren.
Viele Grüße
Christian

320 Forumthreads zu ähnlichen Themen

Ausgabe zweier Zellen mit SVERWEIS
Andreas

Hallo
Ich möchte mittels SVERWEIS Werte aus Spalte 2 oder wenn sich in dieser Spalte keine Werte befinden aus Spalte 3 ausgeben...
Kann mir da jemand weiterhelfen?
Gruß
Andreas
14.08.2008 11:46:00
Thread-ID: 1001793
4 Beiträge
Anzeige
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
ZÄHLENWENN mit 2 Bedingungen
oblivion

Hallo, hab mal eine Frage zur Funktion ZÄHLENWENN.
Die Funktion lautet ja allgemein so =ZÄHLENWENN(A1:A15;"=19").
Ich würde aber gerne diese Funktion so erweitern, dass er mir alle Werte zählt, die kleiner als 19 sind, aber größer als 0.
Ich bekomme es nicht hin. Gibt es da eine Lö...
04.09.2008 18:07:33
Thread-ID: 1007473
3 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Zwei Kriterien für Sverweis
sascha76er

Hallo,
ich habe folgende Liste:
https://www.herber.de/bbs/user/55778.xls
Hier möchte ich gerne anhand von zwei Kriterien einen SVERWEIS erstellen für die Spalte P , die Kriterien sollen aus den Werten der Spalten E und M gebildet werden. Der entsprechende Wert muss im Tabellenblatt...
01.10.2008 16:04:31
Thread-ID: 1013672
3 Beiträge
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
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
Anzeige

Links zu Excel-Dialogen

ListBox

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
3
2
2
5
2
1
2
4
3
6
11
3
5
11
6
2
2
2
5
1
3
3
3
6