ich suche mit folgendem Code nach einem Wort und lösche dan die gesamte Spalte in der das Wort vorkommt:
Dim Such
Set Such = ActiveSheet.Range("A3:FJ3").Find("MeinWort")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Ich will nun genau das gleiche für 40 weitere Wörter machen. Statt den selben Code 40 mal zu kopieren suche ich nach einer alternative.
Am besten wäre natürlich sowas wie: .Find("MeinWort" OR "MeinZweitesWort OR ""DrittesWort" OR ... OR "MeinLetztesWort")
Habt ihr irgendwelche Ideen?
Danke im Voraus.