Frage : Datenfolge entfernen

Hallo helfen Experten,

I Notwendigkeit Experten, den angebrachten Index neu zu schreiben. Notwendigkeit, die vollständige Reihe wenn überhaupt des Inhalts im column_C (Systemsblatt) zu entfernen hat „Stichwort“ word.
Hope Experten könnte mir helfen, das code.

Attached zu verbessern das Arbeitsbuch für Experten perusal.
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub Cue2 ()
  
Schwaches rFind als Strecke

Application.ScreenUpdating = falsch

Mit Blättern („System“). Spalten (3)
    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 = ausrichten en
     
Enden-Unterseeboot
Attachments:

Antwort : Datenfolge entfernen

xlWhole Argument zum xlPart ändern

Sub Cue2 ()
 
rFind als Strecke verdunkeln

Application.ScreenUpdating = falsch

Mit Blättern („System“). Spalten (3)
    rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
    Wenn nicht rFind nichts dann ist
        Tun
            rFind.EntireRow.Delete
            rFind einstellen =. Finden (was: = " Stichwort ", LookAt: =xlPart, MatchCase: =False, SearchFormat: =False)
        Schlingen, bis rFind nichts ist
    Beenden wenn
Mit beenden
     
Application.ScreenUpdating = richten aus
     
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us