wenn 2 Teststrings nicht in Zelle
16.04.2020 13:47:11
TAra
ich habe schon sämtliche Einträge durchforstet.. aber ich komme nicht weiter.
Es geht mir darum, dass Zeilen löschen möchte die in Spalte A entweder die Zeichenfolge ´"aaa" oder "bbb" nicht enhalte. Mit einer Bedingung hatte es geklapp aber nicht mit 2.
Nur mit 1 Bedingung "ohne "aaa"":
Sub löschen()
Dim start As Long, letzte as Long, LngZ as Long
start = 2
letzte = ActiveSheet.Range("C65536").End(xlUp).Row
For lngZ = letzte To start Step -1
If Not Cells(lngZ, 1).Value Like "*aaa*" Then Rows(lngZ).Delete
Next lngZ
End Sub
Mit 2 Bedingngen habe ich tausend Sachen versucht:
If Not Cells(lngZ, 1).Value Like "*aaa*" or Cells(lngZ, 1).Value Like "*bbb*" Then Rows(lngZ).Delete
If Not Cells(lngZ, 1).Value Like "*aaa*" or if not Cells(lngZ, 1).Value Like "*bbb*" Then Rows(lngZ).Delete
If Instr(Cell(lngZ,2) "*aaa*" or "*bbb*" then..
Bitte helft mir !! :)
DANKE!!!
Anzeige