Ich bräuchte mal wieder eure Hilfe von einem "hoffentlich" kleinem Problem:
Ich habe hier im Forum einen tollen Code gefunden von Björn B.
Der eine Spalte löscht sobald sich ein bestimmtes Wort darin findet:
Sub Loesch()
Dim Such
Do
Set Such = ActiveSheet.UsedRange.Find("Nicht zugeordnet")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Loop Until Such Is Nothing
End Sub
Meine Frage:
Wie kann ich genau diesen Code umschreiben dass er nicht die Spalten löscht mit dem Wort
"nicht zugeordnet" SONDERN spalten in der eine Zelle farbig (gelb) ist.
Nach Wort suchen funktioniert leider nicht, da dieses Wort bei mir durch eine Formel ausgegeben wird.
Danke schon im Voraus für eure Hilfe.
Gruß Martin