Wortketten Funktion
05.11.2015 10:31:28
Denys
ich habe hier eine Funktion, die auch (fast) genau das tut was sie soll.
Schön wäre es aber wenn ein Leerzeichen " " zwischen den verketteten Wörtern wäre. Weiß da jemand eine fixe Lösung?
Lieben Gruß
Denys
Function megafunktion(Wörter As String, Datenbank As Range) As String
Dim Wort
Dim dicErgebnis As Object
Dim rng As Range
Set dicErgebnis = CreateObject("Scripting.dictionary")
For Each Wort In Split(Wörter, " ")
Set rng = Datenbank.Columns(1).Find(what:=Wort, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then dicErgebnis(rng.Offset(0, 1).Value) = 0
Next
megafunktion = Join(dicErgebnis.keys, vbLf)
End Function