1. Sub Makro1()
  2. Do
  3. Set found = Cells.Find(What:="failed", After:=ActiveCell, LookIn:=xlValues, _
  4. LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
  6. If found Is Nothing Then
  7. MsgBox "fertig"
  8. Exit Do
  9. Else
  10. row_found = found.Row
  11. Rows(row_found).Delete
  12. End If
  13. Loop
  14. End Sub