Löschen Zeilen wenn zwei Bedinungen nicht vorhande

• Löschen Zeilen wenn zwei Bedinungen nicht vorhande von Marc vom 21.09.2019 14:16:10
• AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande - von Hajo_Zi am 21.09.2019 14:24:59
• AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande - von GerdL am 21.09.2019 15:06:54
• AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande - von Marc am 21.09.2019 15:24:07
• AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande - von Hajo_Zi am 21.09.2019 16:39:34
• AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande - von Daniel am 21.09.2019 15:08:11
• AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande - von GerdL am 21.09.2019 16:45:24

Betrifft: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: Marc

Geschrieben am: 21.09.2019 14:16:10
Hallo ,
wie kriege ich es hin das ich alle Zeilen löschen kann wenn in
Spalte A zwei Bedingungen nicht erfüllt werden ?
Als Beispiel alle Zeilen löschen außer wenn in Spalte A die Zahl 20 und 21 vorkommt.
Die erste Zeile sollte natürlich auch stehen bleiben.
Löschen von Zeilen wenn Wert in A vorhanden bekomme ich hin :
Do While Not IsError(var)
var = Application.Match("21", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
Nur anders herum nicht . Irgendwie stehe ich heute auf dem Schlauch.
Danke

Betrifft: AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: 1714206.html
Geschrieben am: 21.09.2019 14:24:59
benutze Autofilter und lösche sichtbaren Bereich (gehe Zu)

Betrifft: AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: 1714209.html
Geschrieben am: 21.09.2019 15:06:54
Hallo Marc!

Sub Makro2()
Dim X As Long
For X = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(X, 1) <> 20 And Cells(X, 1) <> 21 Then Rows(X).Delete
Next
End Sub

Gruß Gerd

Betrifft: AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: 1714211.html
Geschrieben am: 21.09.2019 15:24:07
Danke Gerd schon mal für deine Hilfe . Funktioniert wunderbar.
Wie müsste ich es ab ändern wenn es sich auf Spalte B bezieht und die
komplette Zeile gelöscht werden wenn sich einer der beiden Werte nicht in Spalte B befinden .
Danke

Betrifft: AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: 1714219.html
Geschrieben am: 21.09.2019 16:39:34
die komplette Zeile wird schon gelöscht. Spalte A ist 1 was wird dann wohl Spalte B sein? 2

Betrifft: AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: 1714210.html

Geschrieben am: 21.09.2019 15:08:11
Hi
Markiere mit einer Formel in der ersten freien Spalte alle Zeilen, die gelöscht werden sollen, mit 0 und die die stehenbleiben sollen mit der Zeilennummer
=Wenn(oder(A1=20;A1=21);Zeile();0)
Schreibe dann in die erste Zeile der Hilfsspalte die Null.
Wende dann auf die ganze Tabelle die menüfunktion Daten - Datentools - Duplikate entfernen an, mit der Hilfsspalte als Kriterium und der Option "keine Überschrift"
Lösche dann die Hilfsspalte.
Wenn du es per Makro machen willst, führe genau diese Schritte auch im Makro aus.
Der Recorder ist dein Freund.
Gruß Daniel

Betrifft: AW: Löschen Zeilen wenn zwei Bedinungen nicht vorhande
von: 1714221.html
Geschrieben am: 21.09.2019 16:45:24
Hallo Marc!

Sub Makro3()
Dim X As Long
For X = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(X, 2) <> 20 And Cells(X, 2) <> 21 Then Rows(X).Delete
Next
End Sub

Gruß Gerd

Excel-Beispiele zum Thema "Löschen Zeilen wenn zwei Bedinungen nicht vorhande"
Leerzeichen aus einem Bereich löschen	Doppelte Einträge finden und löschen
Doppelte Datensätze löschen	Freiraum am linken Rand von MS-FORMS-Textfeldern löschen
Leere Zeilen löschen	Formatvorlagen löschen
Unterverzeichnisse mit Inhalt löschen	Alle Kopf-/Fußzeilen-Festlegungen löschen
Zellkontextmenü löschen und aufbauen	Zeilenhöhe in cm festlegen