|
Guten Morgen,
ich bin absoluter Anfänger, arbeite mit Makrorekorder und codes welche ich im Internet für meine Anliegen finde. Ich arbeite mit
Excel® 365 MSO
Nun zu meinem Anliegen
ich suche in meiner Stückliste in Spalte D nach dem Satz: "ZUBEHOER: NICHT MITLIEFERN bzw mitliefern", wenn gefunden, dann diese und alle folgenden Zeilen löschen.
Jetzt ist es aber so, dass unsere Stücklisten nicht immer gleich geschrieben werden und unterschiedliche Schreibweisen angewendet werden.
Einmal steht da:
- Zubehör:
- Zubehoer:
- ZUBEHÖR:
- ZUBEHOER:
Kann man die Suche zusammenfassen mit den unterschiedlichen Schreibweisen?
Hier der Code wie ich es im Moment habe. VIELEN DANK
Range(Range("D2"), Range("D2").End(xlDown)).Select
For Each cell In Selection
If cell.Value Like "Zubehör*" Then Range(cell, cell.End(xlDown)).EntireRow.Delete
Next
Range(Range("D2"), Range("D2").End(xlDown)).Select
For Each cell In Selection
If cell.Value Like "ZUBEHÖR*" Then Range(cell, cell.End(xlDown)).EntireRow.Delete
Next
Range(Range("D2"), Range("D2").End(xlDown)).Select
For Each cell In Selection
If cell.Value Like "Zubehoer*" Then Range(cell, cell.End(xlDown)).EntireRow.Delete
Next
Range(Range("D2"), Range("D2").End(xlDown)).Select
For Each cell In Selection
If cell.Value Like "ZUBEHOER*" Then Range(cell, cell.End(xlDown)).EntireRow.Delete
Next
|