Bitte um Fehleridentifikation
26.01.2017 16:30:28
Ferderik
Mein Ziel ist es eine Zelle nach verschiedenen Suchbegriffen in einem Bereich A zu durchsuchen. Wenn etwas gefunden wird, sollen alternative Werte aus Spalte B kommagetrennt in die Zelle ausgegeben werden.
Beispiel:
In Spalte A steht: [Apfel,Birnen,Bananen,Kiwi]
In Spalte B steht: [1,2,3,4]
Durchsucht wird die Zelle mit dem Inhalt: [Apf Kiw]
Ergebnis soll sein: [1,4]
Was mir mein Programm ausgibt: [1,2,3,4]
Und hier das Programm:
Public Function Substituieren(Zelle As String, Referenz As Range, Substitut As Range) As String
Dim i As Integer
Dim mydic As Object
Set mydic = CreateObject("Scripting.Dictionary")
TMP = Referenz
For i = 1 To Referenz.Count
If InStr(Zelle, Referenz.Item(i)) = 0 Then
mydic(TMP(i, 1)) = Substitut.Item(i)
End If
Next i
Substituieren = Join(mydic.items, ",")
End Function
Kann mir jemand sagen, wo mein Fehler liegt!?
Viele Grüße
Frederik