Userformeingabe
30.10.2015 11:37:27
Denys
ich habe folgende Funktion zum Verketten von Wörtern in einer Zelle ohne doppelte Werte/Worte.
Public Function wortkette(r As Range) As String
Dim s As String
Dim c As Range
Dim d As Object
Dim a As Variant
Dim i As Long
Set d = CreateObject("scripting.dictionary")
For Each c In r
a = Split(c.Value, " ")
For i = LBound(a) To UBound(a)
d(a(i)) = 1
Next
Next
a = d.keys
wortkette = Join(a, " ")
End Function
Da klappt auch alles Wunderbar wenn ich Werte in den Zellen händisch ändere. Sobald ich allerdings eine Userform mit TextBoxen dazu nehme um den Wert in einer Zelle zu ändern erhalte ich #Wert... in sämtlichen Zellen mit der Funktion =wortkette()
Weiß jemand eine Lösung?
LG
Denys
Anzeige