ich habe eine Funktion gegooglet, die mir sehr hilfreich ist.
Es geht darum, Zeichenfolgen zu verketten wenn eine Bedingung erfüllt ist.
Public Function VerkettenWenn(Bereich_Kriterium, Kriterium, Bereich_Verketten)
Dim mydic As Object
Dim L As Long
Set mydic = CreateObject("Scripting.Dictionary")
For L = 1 To Bereich_Kriterium.Count
If Bereich_Kriterium(L) = Kriterium Then
mydic(L) = Bereich_Verketten(L)
End If
Next
VerkettenWenn = Join(mydic.items, ", ")
End Function
Da Problem ist, die Funktion verkettet auch mehrfach vorkommende, gleiche Werte. Wenn also der Wert "Apfel" mehrfach vorkommt, wir er auch mehrfach verkettet. Ich kann den Wert aber nur 1x brauchen.
Meine Versuche waren zwecklos, dafür reicht es einfach nicht.
Kann mir jemand helfen?
Vielen Dank an Euch alle!
Gruß