ich habe eine Tabelle bei der in Spalte A unterschiedliche Bezeichnungen eingetragen sind. Folgende Beispiele zu Beginn der Bezeichnung sind möglich:
M02_xy
M111_xyz
M3012_muster
M21a_test
Sie entsprechen also alle dem folgenden Platzhalter-Schemata:
M?_text
M?_text
M?_text
Nun möchte ich alle anderen Zeilen deren Inhalt in Spalte nicht einem der Schemata entspricht löschen. Aktuell nutze ich die Filterfunktion von Excel, diese ermöglicht mir allerdings nur eine Filterung nach zwei Kriterien. (M?_ fehlt als drittes Kriterium). Gib es eine andere Möglichkeit den Zellinhalt auszulesen und mit dem Platzhalterschemata zu vergleichen? Eignet sich dafür die Funktion Instr() eventuell? Oder kennt ihr eine andere Möglichkeit?
Sub Filterung()
ActiveSheet.Range("$A$10:$J$200").AutoFilter Field:=1, Criteria1:="M?_*", Operator:=xlAnd, _
Criteria2:="M?_*"
Rows("11:11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$10:$J$200").AutoFilter Field:=1
End Sub
Beste Grüße und vielen Dank
Cornelius