Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Zeilen löschen wenn Kriterien nicht erfüllt

VBA Zeilen löschen wenn Kriterien nicht erfüllt
26.05.2015 10:24:49
Michael
Hallo Forum,
ich nutze folgenden Code um mir Zeilen löschen zu lassen die einem Kriterium nicht entsprechen:
LZ = Cells(Rows.Count, 7).End(xlUp).Row
For z = LZ To 3 Step -1
If Not Cells(z, 7) = "Schmitz" Then Rows(z).Delete Shift:=xlUp
Next z
kann ich diesen Code auch nutzen / umschreiben wenn ich mehr als ein Kriterium hab. Sprich, wenn nicht Schmitz, Meier, Peters etc. dann bitte löschen, und wie könnte ich das realisieren?
Gruß
Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
benutze AND
26.05.2015 10:34:33
Matthias
Hallo
nach folgendem Schema
If Cells(z, 7) <> "Schmitz" And Cells(z, 7) <> "Meier" Then Rows(z).Delete Shift:=xlUp
Gruß Matthias

AW: benutze AND
26.05.2015 10:38:44
Michael
Danke Matthias,
werde ich gleich mal ausprobieren!
Gruß
Michael

Bedinung mit mehreren Kriterien: Select Case
26.05.2015 10:37:58
Daniel
Hi
für mehere Bedingungen bietet sich das Select case an:
LZ = Cells(Rows.Count, 7).End(xlUp).Row
For z = LZ To 3 Step -1
Select case Cells(z, 7).value
Case "Schmitz", "Meier", "Peters"
case else
Rows(z).Delete Shift:=xlUp
end Select
Next z

andere Möglichkeit:

if Instr(";Schmitz;Meier;Peters;"),";" & Cells(z, 7) & ";") = 0 Then Rows(z).Delete
Gruß Daniel

Anzeige
AW: Bedinung mit mehreren Kriterien: Select Case
26.05.2015 10:39:56
Michael
Danke Daniel,
ich probiere es mal aus.
Gruß
Michael

350 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige