Makro vereinfachen
Jesse
da mir gestern schon in diesem Forum vorbildlich geholfen wurde, habe ich noch eine Frage bzgl eines Makros
Habe folgendes programmiert:
Sub SuchenundZerstören()
Range("A1").Select
Do Until ActiveCell.Value = ""
If Instr(1,ActiveCell.Value, "a") _
Then Selection.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
Do Until ActiveCell.Value = ""
If Instr(1,ActiveCell.Value, "b") _
Then Selection.EntireRow.Delete _
Else: ActiveCell.Offset(1, 0).Select
Loop
End Sub
Das funktioniert ja auch alles wunderbar, aber dann muss ich für jedes Kriterium nach dem ich suchen will, einen "5-Zeiler" schreiben, das muss doch auch einfacher gehen, das ich einfach schon im ersten Block alle Kriterien angeben kann?
Vielen Dank für jede Hilfe :)
Anzeige