Vorx ()
Schwaches rFind als Strecke
Application.ScreenUpdating = falsch
Mit Blättern („versöhnen“). Spalten (4)
rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Wenn nicht rFind nichts dann ist
Tun
rFind.EntireRow.Delete
rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Schlingen, bis rFind nichts ist
Beenden wenn
Mit beenden
Application.ScreenUpdating = richten aus
Enden-Unterseeboot
|