Filter umdrehen

[StrammerMax]

Hallo zusammen,

ich habe folgenden Code:

Code:

            Sheets(strWorksheet_Blatt1).Select
            ActiveSheet.Range("$A$11:$BB$50000").AutoFilter Field:=1, Criteria1:=Array( _
            "S120", "SH40"), Operator:=xlFilterValues
            Rows("12:12").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Delete Shift:=xlUp
            ActiveSheet.Range("$A$11:$BB$11").AutoFilter Field:=1

Was er tut: 
- er filtert und löscht "S120" und "SH40" heraus. 

Was er tun soll:
- er soll alles filtern und löschen außer "S120" und "SH40"

Ich könnte jetzt natürlich super umständlich alle Werte in den Array einfügen die gelöscht werden sollen - aber das wäre dann wirklich "dirty". Schöner wäre natürlich wenn ich sage er soll nur die beiden behalten und alles Andere löschen. 

[NobX]

Hallo StrammerMax,

vielleicht verstehe ich es einfach nicht ganz:

Was er tun soll:

- er soll alles filtern und löschen außer "S120" und "SH40"

Weshalb filtern, wenn die gefilterten Werte sofort wieder gelöscht werden? Kannst Du nicht statt dessen direkt S120 und SH40 anzeigen oder ausgeben lassen?


Vielleicht kannst Du es noch einmal etwas genauer erklären.

Grüße

Norbert

[Kuwer]

Hallo,

Code:

ActiveSheet.Range("$A$11:$BB$50000").AutoFilter Field:=1, Criteria1:="<>S120", Operator:=xlAnd, Criteria2:="<>SH40"

Gruß Uwe