Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen, nach filtertext

Forumthread: Zeilen löschen, nach filtertext

Zeilen löschen, nach filtertext
21.09.2016 12:16:04
Michael
Hallo alle zusammen,
https://www.herber.de/bbs/user/108310.xlsx
Zusätzlich zu meinem gestrigen Beitrag stehe ich "Überraschung" wieder vor einer Herausforderung.
Ich habe eine Ist, Filter, und Soll Tabelle eingefügt.
Die Ist Liste soll mithilfe der Filter tabelle angepasst werden.
Wenn unter "Filter" eine Vor- und Nachnamen kombination aus der "ist" Tabelle gefunden wird, Soll in Tabelle "Soll" die Zeile wo es eine Übereinstimmung gab, im "Ist" Tabellenformat angezeigt werden.
Also bleiben am Ende in der Soll Tabelle nur Daten bei denen es zwischen "ist" und "Filter" übereinstimmungen gab, und sollen in Form der "Ist" Tabelle ausgegeben werden.
Ich habe unter "Soll" den sollzustand aufgezeigt, wie es am Ende aussehen muss.
Ich danke vielmals für eure Hilfe
Lg Micha
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen, nach filtertext
21.09.2016 13:06:59
ChrisL
https://www.herber.de/forum/messages/1515405.html
Hi Micha
Muss ja nicht immer VBA sein ;)
In Zelle Filter!C2 folgende Formel (danach nach rechts und runter ziehen)
=VERWEIS(2;1/(Ist!$B$1:$B$9&Ist!$C$1:$C$9=$A2&$B2);Ist!D$1:D$9)
Ohne leere Zellen:
=WENN(VERWEIS(2;1/(Ist!$B$1:$B$9&Ist!$C$1:$C$9=$A2&$B2);Ist!D$1:D$9)=0;"";VERWEIS(2; 1/(Ist!$B$1:$B$9&Ist!$C$1:$C$9=$A2&$B2);Ist!D$1:D$9))
Problemstellung: SVERWEIS bei mehrspaltigen Suchkriterien
http://excelformeln.de/formeln.html?welcher=30
cu
Chris
Anzeige
AW: Zeilen löschen, nach filtertext
21.09.2016 13:17:22
Fennek
Hallo,
füge in einer Hilfsspalte dir Formel

=SUMMENPRODUKT((B2=Filter!$A$2:$A$4)*(C2=Filter!$B$2:$B$4))
Dann kann man nach 1 filtern und die sichtbaren Zeilen kopieren.
mfg
AW: Zeilen löschen, nach filtertext
26.09.2016 12:41:44
Michael
Hey alle zusammen,
ich stehe mit der Lösung vor folgendem Problem, weshalb ich glaube das ein Makro da effizienter mit umgeht. Ich habe 500.000 abgleiche zu machen mit der Formel, und Excel berechnet bei jeder Änderung der Liste alle Zellen neu. Er rödelt jetzt seit ca. 4 Stunden und ich bin nicht mal zum einfügen von Werten gekommen.
Vielen Dank für eure Hilfe
Anzeige
AW: Zeilen löschen, nach filtertext
26.09.2016 12:55:08
Daniel
Hi
bei großen Datenmengen gehe so vor:
1. fasse in der Tabelle Filter Vor- und Nachname zu einem Begriff zusammen, dh in Spalte C mit der Formel (für C2) =A2&B2
2. Sortiere die Tabelle Filter nach dieser Hilfsspalte aufsteigend
3. kopiere die ganze Tabelle Ist nach Soll.
4. füge in der Tabelle Soll diese Formel am Tabellenende (Spalte K) an, hier die Formel für K2
=Wenn(SVerweis(B2&C2;Filter!C:C;1;1)=B2&C2;Zeile();0)
5. Schreibe in die Überschriftenzeile der Hilfsspalte (Zelle K1) die 0
6. Wende auf die ganze Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an, mit Hilfsspalte K als Kriterium und der Option "keine Überschrift"
7. lösche die Hilfsspalte
Gruß Daniel
Anzeige
AW: Zeilen löschen, nach filtertext
26.09.2016 13:13:49
Michael
Probiere ich heute Abend direkt aus, vielen Dank schonmal
AW: Zeilen löschen, nach filtertext
26.09.2016 14:33:01
Michael
Hey,
es ist noch eine Variable hinzugekommen die abgeglichen werden soll.
Habe es so versucht: =VERWEIS(2;1/(Ist!$B$1:$B$100000&Ist!$C$1:$C$100000&Ist!$D$1:$D$100000=$A2&$B2&$D2);Ist!I$1:I$100000), allerdings ohne erfolg! Habt ihr eine Idee?
LG Micha
Anzeige
AW: Zeilen löschen, nach filtertext
26.09.2016 14:40:49
Daniel
Hi
hätte ich schon, aber diese komische Verweisformel ist nicht meine Lösung, die ist mir zu kompliziert, die verstehe ich nicht.
Gruß Daniel
AW: Zeilen löschen, nach filtertext
26.09.2016 14:40:53
Michael
Hey, die Lösung mit dem Wenn Verweis ist, dass die Namen zusammengeführt werden. Das ist leider nicht möglich da ich die Werte getrennt voneinander brauche!
Vielen Dank LG Micha
Anzeige
AW: Zeilen löschen, nach filtertext
26.09.2016 14:42:26
Daniel
das zusammenfassen machst du ja in einer Hilfsspalte, die orignialspalten bleiben ja erhalten und du hast die Werte immer noch getrennt vorliegen.
Gruß Daniel
AW: Zeilen löschen, nach filtertext
26.09.2016 14:56:13
Michael
Hey, es hat sich ein bisschen was verändert(vereinfacht) ich habe nochmal ein Beispiel hinzugefügt:
https://www.herber.de/bbs/user/108415.xlsx
Wenn (Vorname+Nachname+Straße) aus Filter, in der Tabelle Ist so zu finden sind, dann Tabelle "Ergebnis" mit übereinstimmungen befüllen und Vorwahl+Rufnummer aus "Ist" anfügen.
Danke dir Daniel
Gruß Micha
Anzeige
AW: Zeilen löschen, nach filtertext
26.09.2016 15:04:37
Daniel
Hi
da ändert sich jetzt mal gar nichts. nur das du halt für den Vergleichswert nicht nicht nur Name und Vorname zusammenfassen musst, sondern Name, Vorname und die Strasse.
Ansonsten bleibt alles gleich:
1. alle Werte kopieren
2. Per SVerweis überprüfen, ob die Kombination aus Name, Vorname und Strasse in der Filterliste vorhanden ist.
3. nicht vorhandene löschen.
Wenn dann noch die Kundennummer aus der Filterliste eingefügt werden soll, kannst du das auch über den SVerweis erledigen, hierzu sollte dann aber der Zusammengefasste Wert in Spalte A stehen (ansosten halt mit Index und Vergleich)
Gruß Daniel
Wenn du die Hilfsspalte mit den Zusammengefassten Werten in der Filter-Datei in die erste Spalte einfügst, kannst du dann
Anzeige
AW: Zeilen löschen, nach filtertext
26.09.2016 14:56:53
Michael
Eventuell kennst du da nen effizienteren Weg als den mit dem Verweis!
Lg Micha
AW: Zeilen löschen, nach filtertext
28.09.2016 15:32:57
Michael
Hey, habe jetzt eine Lösung gefunden die ohne Svwerweis funktioniert: 
Sub Datenabgleich()
Application.ScreenUpdating = False
'letzte Zeilen auslesen
Dim lastRowKlick As Long
lastRowKlick = Worksheets("Klick").Range("A" & Rows.Count).End(xlUp).Row
Dim lastRowMedia As Long
lastRowMedia = Worksheets("Media").Range("A" & Rows.Count).End(xlUp).Row
Dim lastRowZiel As Long
lastRowZiel = Worksheets("Ziel").Range("A" & Rows.Count).End(xlUp).Row
'namen aus klick auslesen
Dim i As Long
For i = 2 To lastRowKlick
Dim vorname, nachname As String
vorname = Worksheets("Klick").Cells(i, 2).Value
nachname = Worksheets("Klick").Cells(i, 3).Value
'nur wenn beides nicht leer ist
If vorname  "" And nachname  "" Then
'namen aus media auslesen
Dim j As Long
For j = 2 To lastRowMedia
'namensvergleich
If vorname = Worksheets("Media").Cells(j, 1).Value And nachname = Worksheets(" _
Media").Cells(j, 2).Value Then
'werte kopieren
lastRowZiel = lastRowZiel + 1
Worksheets("Ziel").Cells(lastRowZiel, 1) = Worksheets("Klick").Cells(i, 1). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 2) = Worksheets("Klick").Cells(i, 2). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 3) = Worksheets("Klick").Cells(i, 3). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 4) = Worksheets("Klick").Cells(i, 4). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 5) = Worksheets("Klick").Cells(i, 5). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 6) = Worksheets("Klick").Cells(i, 6). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 7) = Worksheets("Klick").Cells(i, 7). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 8) = Worksheets("Klick").Cells(i, 8). _
Value
Worksheets("Ziel").Cells(lastRowZiel, 9) = Worksheets("Media").Cells(j, 4). _
Value
End If
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
Danke für eure Mühen
LG Micha
Anzeige
;

Forumthreads zu verwandten Themen

Anzahl der Zeilen steuern
Alex

Guten Morgen Liebe Excel Anwender,
auch zu diesem Problem gibt es sicher schon Beiträge im Forum, konnte sie leider nicht Finden. Und zwar möchte ich die Anzahl der Zeilen steuern die mit Formeln gefüllt werden.
Z.B
Anzahl der Zeilen 3
A1
A2
A3
...
02.10.2008 07:20:00
Thread-ID: 1013790
2 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Zahlenreihe nach bestimmten Regeln filtern
Reinhard

Hallo Wissende,
in einem Rätsel-Forum wo ich häufig bin stiess ich auf dieses:
"Ihr habt alle natürlichen Zahlen von 1 bis 50 (inklusive) zur Verfügung.
Bildet nun aus diesen Zahlen eine möglichst lange Zahlenreihe.
Wobei folgendes gilt:
Jede Zahl muß entweder die Summe oder...
03.04.2010 19:28:50
Thread-ID: 1150009
3 Beiträge
Zeilen nach Einträgen filtern
Joni

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich habe eine Liste mit Datensätzen und möchte diese über die Eingabe von Werten "in Echtzeit" filtern. Dies funktioniert mit dem Spezialfilter und folgendem Makro.
Private Sub Worksheet_Change(ByVal Target As Ra...
24.09.2010 18:31:04
Thread-ID: 1179243
3 Beiträge
Zeilen mehrfach nach Einträgen filtern
Joni

Hallo,
ich möchte aus einer Liste Daten heraus filtern. Dabei hilft mir das Makro von Klaus aus meiner vorigen Frage
https://www.herber.de/forum/messages/1179259.html
Zusätzlich möchte ich die gefundenen Zeilen mit meinem ursprünglichen Makro noch filtern. Dann könnte ich zuerst all...
26.09.2010 14:52:36
Thread-ID: 1179331
2 Beiträge
Anzeige
Anzahl farbige Zellen zählen
Jens-Claus

Hallo Excelfreunde,
ich habe ein Arbeitsblatt wo Zellen in verschiedenen Farben markiert sind.
Wer hat mir ein Makro mit welchem ich die Anzahl der Zellen pro Farbe
anzeigen kann.
Das wäre super.
Besten Dank im voraus
Jens
04.11.2010 17:18:09
Thread-ID: 1185243
4 Beiträge
Anzeige
Anzahl der Zeilen innerhalb einer Spalte
Klaus

Hallo Forum,mit welcher Formel bekomme ich in Excel die Anzahl der Zeilen
in einer Spalte angezeigt?BsP
A1 01EZ0201
B1 01EM9999
C1 01ZZ9805Das Ergebnis in D1 müsste dann 3 ergeben.
Danke
Klaus
23.05.2002 12:25:24
Thread-ID: 123053
2 Beiträge
Filtern nach Zeilen
KON

Hallo Experten,
kann man eigentlich im Excel nach Zeilen statt nach Spalten filtern. Wenn JA, wie geht das.
Danke für die Hilfe
Viele Grüße
Kon
06.05.2011 13:57:06
Thread-ID: 1213363
3 Beiträge
Anzahl eines gleichen Eintrags ohne Leerzeilen
Stephan

Hallo Profis
möchte daß wenn in der ersten Spalte ein bestimmtes Zeichen (-) das 3. mal hintereinander erschienen ist, ein "x" ausgeben wird.
Leerzellen sollen dabei nicht berücksichtigt (mitgezählt) werden.
Spalte 1 | Spalte 2
-
+
-
-
+
-
-
- | X
12.05.2011 20:25:14
Thread-ID: 1214234
8 Beiträge
Maximum in gefilterter Tabelle ermitteln
Ptonka

Hallo zusammen,
ich habe folgendes Problem:
In Spalte A stehen bei mir Kostenstellen.
In Spalte B ein Gültigkeitsdatum.
Nun kann eine Kostenstelle mehrfach erscheinen mit unterschiedlichen Gültigkseitsdaten.
Ich benötige nun ein VBA-Makro, welches zunächst eine Kostenstelle...
22.06.2011 12:39:08
Thread-ID: 1219285
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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