Wie kann man Zeilen löschen, die nicht den Kriterien eines anderen Arbeitsblatts entsprechen?

Es ist für Sie wahrscheinlich nicht schwierig, Zeilen löschen zu entfernen, die nicht den Kriterien im selben Arbeitsblatt entsprechen. Doch kennen Sie eine Möglichkeit, Zeilen zu löschen, die nicht den Kriterien eines anderen Arbeitsblatts entsprechen, wie unten dargestellt? Hierfür habe ich zwei Tricks, mit denen Sie dies schnell lösen können.

Zeilen löschen nicht den Kriterien eines anderen Arbeitsblatts entsprechend mit VBA entfernen

Zeilen löschen nicht den Kriterien eines anderen Arbeitsblatts entsprechend mit Kutools für Excel

Kriterien (im Arbeitsblatt 2)	Vorher (Arbeitsblatt 1)		Danach (Arbeitsblatt1)

---

Zeilen löschen nicht den Kriterien eines anderen Arbeitsblatts entsprechend mit VBA entfernen

Ein VBA-Code hilft Ihnen, Zeilen zu löschen, die nicht den Kriterien eines anderen Arbeitsblatts entsprechen.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie im Fenster auf Einfügen > Modul, um ein neues Modulfenster zu öffnen, und fügen Sie anschließend den folgenden VBA-Code in dieses Fenster ein.

VBA: Zeilen löschen nicht den Kriterien eines anderen Arbeitsblatts entsprechend in Excel entfernen

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Klicken Sie auf Ausführen, ein KutoolsforExcel– Es erscheint ein Dialogfeld, in dem Sie einen Bereich auswählen können, dessen Zeilen, die nicht den Kriterien entsprechen, gelöscht werden sollen. Siehe Screenshot:

4. Klicken Sie auf OK, woraufhin ein weiteres Dialogfeld zum Auswählen der Kriterien in einem anderen Arbeitsblatt erscheint. Siehe Screenshot:

5. Nun werden alle Zeilen entfernt, die nicht den Kriterien in einem anderen Arbeitsblatt entsprechen.

---

Zeilen löschen nicht den Kriterien eines anderen Arbeitsblatts entsprechend mit Kutools für Excel

Wenn Ihnen VBA-Code etwas schwierig erscheint, probieren Sie doch einfach die Funktion „Bereiche vergleichen“ von Kutools für Excel aus!

Kutools für Excel umfasst mehr als 300 praktische Excel-Tools – testen Sie es jetzt kostenlos und uneingeschränkt 30 Tage lang! Jetzt herunterladen

1. Wählen Sie das Arbeitsblatt aus, in dem Sie die Zeilen löschen möchten, die nicht den Kriterien entsprechen. Klicken Sie dann auf Kutools > Bereich > Zellen vergleichen. Siehe Screenshot:

2. Im Dialogfeld Zellen vergleichen klicken Sie auf die Schaltfläche neben Bereich B und wählen anschließend den gewünschten Kriterienbereich aus. Siehe Screenshot:

 

3. Klicken Sie anschließend auf OK, kehren Sie zum Dialogfeld Bereiche vergleichen zurück, und aktivieren Sie Unterschiedlicher Wert sowie Gesamte Zeile auswählen. Siehe Screenshot:

4. Klicken Sie auf OK und schließen Sie das Dialogfeld Bereiche vergleichen. Anschließend sehen Sie, dass die Zeilen mit Werten, die von den Kriterien abweichen, ausgewählt sind.

5. Klicken Sie mit der rechten Maustaste und wählen Sie im Kontextmenü Löschen, um die Zeilen zu entfernen, die nicht den Kriterien eines anderen Arbeitsblatts entsprechen.

Klicken Sie hier, um mehr über die Funktion „Bereiche vergleichen“ von Kutools für Excel zu erfahren.

---

Verwandte Artikel:

• Zeilen löschen ohne bestimmten Text in Excel

---