Benutzerdef. Formel für Suchstring
01.03.2006 10:41:53
Jan
Ich möchte eine benutzerdefinierte Formel schreiben, habe das aber schon zu lange nicht mehr gemacht.
Das ist die Aufgabe:
Ich habe für jeweils eine Zeile eine Zelle, die hoffentlich mein gesuchtes Wort beinhaltet. Dieses Wort (oder die Worte) befinden sich in einer anderen Zelle (und zwar ausschliesslich) die Suchworte. Ich möchte nun, dass wenn in der akiven Zelle DIESER Formel, das Suchwort gefunden wurde (egal wie oft) eine 1 geschrieben wird.
Hier schon einmal das, was mir dazu noch eingefallen ist, bitte Fehler melden:
Public
Function TextVorhanden(Heystack As Range, Needle As Range)
Dim Treffer
Set Treffer = Heystack.Find(Needle.Value, LookIn:=xlValues, lookat:=xlPart)
'<<< Wie schreibe ich nun die 1, wenn Treffer == true?
End Function
Die Funktion Vergleich (egal mit welchem Parameter) liefert mir nur bei 100% Übereinstimmung (d.h. Heuhaufen == Nadel) einen Treffer.
Merci Jan
Anzeige