Ich habe ein Datenblatt mit 25k Zeilen. Ich muss das gesamte Blatt nach bestimmten Wörtern durchsuchen, die ich in einem benannten Bereich auf Registerkarte 2 namens "KeywordSearh" definiert habe. Der Bereich enthält eine Liste von Wörtern, die ich in den Hauptdaten nachschlagen muss. Ich möchte alle Zeilen löschen, die diese Schlüsselwörter NICHT enthalten (und alle beibehaltenen Zeilen nach oben verschieben) und nur die Zeilen mit Bezug auf die Schlüsselwörter (einschließlich der Titelzeile) beibehalten. Schlüsselwörter können als Text in jede Zelle geschrieben werden, die auch anderen Text enthält. Daher muss die Suchfunktion innerhalb der einzelnen Zeichenfolgen suchen und darf nicht zwischen Groß- und Kleinschreibung unterscheiden.

Ich denke, der Code auf dem Link unten ist in der Nähe, aber dies bezieht sich nicht auf einen Bereich. Außerdem muss ich nur ein Arbeitsblatt mit dem Namen "FAIR" durchsuchen.VBA Looping Over Sheets: Löschen Sie Zeilen, wenn die Zelle keine enthält

Ich bin ein absoluter Anfänger von VBA, daher wird jede Unterstützung sehr geschätzt.