Office: etwas komplexe Bedingung als Makro, geht das? leider ratlos

Hallo,

habe eine große datei mit ca. 6000 zeilen und 30 spalten
eine zeile representiert einen vorgang

jetzt muss jede zeile/vorgang gelöscht werden der in spalte K NICHT die zahlen 240000 ODER 240100 ODER 241000 ODER 241100 enthält

also jeder der Vorgang/zeile der in Spalte K die zahlen 240000 ODER 240100 ODER 241000 ODER 241100 enthält bleibt erhalten, der rest muss gelöscht werden, ganz egal was darin steht

ist sowas möglich

vielen dank im voraus

 

Hallo!

Code:

Sub test()
Dim i&
For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1
If Not (Cells(i, 11) = 240000 Or Cells(i, 11) = 240100 Or _
Cells(i, 11) = 241000 Or Cells(i, 11) = 241100) Then Rows(i).Delete
Next i
End Sub

 

danke
funktioniert perfekt :-) :-D :lol: :mrgreen: