Hallo zusammen,
mache gerade meine ersten Gehversuche mit VBA.
Aufgabenstellung: Alle ZEILEN der Spalte A löschen, die das wort
"ein"
oder
"aus"
beinhalten.
Problem: Das Script löscht nur die Zeilen, die das Wort
"ein"
beinhalten. Das Wort
"aus"
erkennt er nicht!
Wo liegt da mein Fehler?
Sub
WegDamit()
Begriffe = Array(
"*ein*"
,
"*aus*"
)
For
Each
Begriff
In
Begriffe
Do
While
Not
IsError(Var)
Var = Application.Match(Begriff, Columns(1), 0)
If
Not
IsError(Var)
Then
Rows(Var).Delete
Loop
Next
End
Sub
Für jede Unterstützung bin ich sehr dankbar.
Gruß
Rainer