Supportnet / Forum / Tabellenkalkulation
Excel Tabelle auf Werte überprüfen?
Frage
Hallo,
Ich habe zwei Excel Tabellen und möchte gerne in Tabelle 1 die Spalte A auf Übereinstimmung mit Werten aus Tabelle 2 (ebenfalls Spalte A) überprüfen und dann entweder alle Zeilen löschen in denen kein Wert aus Tabelle 2 vorkommt.
Würde mich über eine Antwort freuen,
Danke
Andreas
Antwort 1 von TeX
Hallo Andreas,
Mit der Funktion IDENTISCH kannst Du den Zellinhalt vergleichen. Ist dieser Identisch, gibt Dir die Funktion den Wert WAHR zurück, andernfalls wird der Wert FALSCH zurück gegeben.
In Tabelle 1 kannst Du in einer Hilfsspalte (z.B. Spalte B) die Funktion eingeben:
Wird die Funktion nach unten fortlaufend kopiert, so steht in der Spalte B dann etwas sowas:
Über die Filterfunktion [Daten]-[Filter]-[Autofilter] kannst Du Dir dann alle Werte, die WAHR enthalten herausfiltern und mittels kopieren und einfügen irgendwo zwischenspeichern. Ggf. eine neue Arbeitsmappe anlegen und dort die Ergebnisse einfügen.
Gruß TeX
Mit der Funktion IDENTISCH kannst Du den Zellinhalt vergleichen. Ist dieser Identisch, gibt Dir die Funktion den Wert WAHR zurück, andernfalls wird der Wert FALSCH zurück gegeben.
In Tabelle 1 kannst Du in einer Hilfsspalte (z.B. Spalte B) die Funktion eingeben:
=IDENTISCH(A1;Tabelle2!A1)Wird die Funktion nach unten fortlaufend kopiert, so steht in der Spalte B dann etwas sowas:
WAHR
WAHR
WAHR
FALSCH
WAHR
...Über die Filterfunktion [Daten]-[Filter]-[Autofilter] kannst Du Dir dann alle Werte, die WAHR enthalten herausfiltern und mittels kopieren und einfügen irgendwo zwischenspeichern. Ggf. eine neue Arbeitsmappe anlegen und dort die Ergebnisse einfügen.
Gruß TeX
Antwort 2 von Saarbauer
Hallo,
wie @ TeX geschrieben hat oder mit dem nachfolgenden Makro
Sub Vergleichen()
letzteZeile_2 = Range("Tabelle2!A65536").End(xlUp).Row
For i = 1 To letzteZeile_2
For j = 1 To Range("Tabelle1!A65536").End(xlUp).Row
If Range("Tabelle1!A" & j).Value = Range("Tabelle2!A" & i).Value Then
Sheets("Tabelle1").Select
Rows(j).Select
Selection.Delete Shift:=xlUp
Exit For
End If
Next j
Next i
End Sub
Tabellebezeichnungen wären anzupassen
Gruß
Helmut
wie @ TeX geschrieben hat oder mit dem nachfolgenden Makro
Sub Vergleichen()
letzteZeile_2 = Range("Tabelle2!A65536").End(xlUp).Row
For i = 1 To letzteZeile_2
For j = 1 To Range("Tabelle1!A65536").End(xlUp).Row
If Range("Tabelle1!A" & j).Value = Range("Tabelle2!A" & i).Value Then
Sheets("Tabelle1").Select
Rows(j).Select
Selection.Delete Shift:=xlUp
Exit For
End If
Next j
Next i
End Sub
Tabellebezeichnungen wären anzupassen
Gruß
Helmut