ich habe eine Frage zum löschen ganzer Zeile, bzw. benötige Hilfe bei der Erstellung eines VBA-Codes.
Ich habe zwei Spalten (in der Beispiel-Datei Spalten A und C), die jeweils Zahlen enthalten. Ich würde gerne über ein Makro per Klick erreichen, dass wenn Werte sowohl in Zellen aus Spalte A und Spalte C vorkommen (teilweise doppelt, teilweise aber auch mehrfach), dass nur die Zeilen erhalten bleiben, die eben genau diese Mehrfachaufführung haben und die ohne Dopplung/Mehrfachaufführung gelöscht werden.
Konkret im Beispiel: hier sollten die Zeilen 6, 8, 9, 12 und 14 gelöscht werden, da diese nur in Spalte A aber nicht in Spalte C vorkommen
Ich habe versucht, dies über FALSCH/WAHR zu prüfen und eben die Zeilen zu löschen, die FALSCH aufweisen, jedoch ohne Erfolg.
Die Werte in Spalte D entsprechen Spalte B, jedoch als Text.
Ich hoffe ich habe mich verständlich genug ausgedrückt
Anbei mein VBA-Code der mich nicht zum Ziel geführt hat.
Leider funktioniert das nicht so wie ich möchte und stehe etwas auf dem Schlauch
Hier der Link zu der Datei: https://www.herber.de/bbs/user/153219.xlsm
Sub DELETE()
Worksheets("Tabelle1").Range("$B4:$B14").FillDown
Worksheets("Tabelle1").Range("$D4:$D14").FillDown
Dim t As Long
Dim Zelle As Range
t = 5
For Each Zelle In Sheets("Tabelle1").Range("D5:D14")
If Zelle = "FALSCH" Then Rows(t).DELETE
t = t + 1
Next
End Sub