Thema Datum  Von Nutzer Rating
Antwort
20.04.2023 08:52:13 Michael
Solved
Blau Nach bestimmten Inhalt suchen und dann Zeilen löschen
20.04.2023 11:56:45 UweD
Solved
20.04.2023 12:09:59 Michael
Solved

Ansicht des Beitrags:
Von:
UweD
Datum:
20.04.2023 11:56:45
Views:
304
Rating: Antwort:
 Nein
Thema:
Nach bestimmten Inhalt suchen und dann Zeilen löschen

Hallo

 

du kannst bei der Überprüfung das OE "virtuell" ersetzen und auch auf GROSSCHRIFT umstellen.

Dann alles in einem Rutsch abarbeiten.

    Dim cell As Range
    
    For Each cell In Range(Range("D2"), Range("D2").End(xlDown))
        If Replace(UCase(cell.Value), "OE", "Ö") Like "ZUBEHÖR*" Then Range(cell, cell.End(xlDown)).EntireRow.Delete
        Exit For
    Next

LG UweD 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.04.2023 08:52:13 Michael
Solved
Blau Nach bestimmten Inhalt suchen und dann Zeilen löschen
20.04.2023 11:56:45 UweD
Solved
20.04.2023 12:09:59 Michael
Solved