Hallo Gast,
schön gelöst.
Das mit dem Apfelkuchenkuchen(kuchen....) war mir schon klar, allerdings fehlten mir Aussagen dazu, wie damit umgehen..
Läuft das Makro nur einmal ist es ok.
Kommt immer "Apfel ", kann man einfach den Suchbegriff ergänzen, ansonsten müsste man "Apfelkuchen" auch abfangen....
Evtl. folgende Idee zur Erweiterung:
'ungetestet
With rngBereich(iZeile, iSpalte)
If .Value Like ("*" & sSuch1 & "[ .,!:;?]*") Or .Value Like ("*" & sSuch1) Then iCheck = (iCheck Or 1)
If .Value Like ("*" & sSuch2 & "*") Then iCheck = (iCheck Or 2)
End With
With rngBereich(iZeile, iSpalte)
If .Value Like ("*" & sSuch1 & "[ .,!:;?]*") And Not .Value Like ("*" & sSuch1 & "kuchen*") Then iCheck = (iCheck Or 1)
If .Value Like ("*" & sSuch2 & "*") Then iCheck = (iCheck Or 2)
End With
viele Grüße
Karl-Heinz
|