Dank Google habe ich mein Problem fast gelöst. Leider werden die Werte mit einem , getrennt in eine Zelle geschrieben. Ich möchte allerdings das die Werte untereinander immer in der nächsten Zelle fortgeschrieben werden. In Modul1 steht folgender Code. Kann mir einer das so umschreiben das es wie von mir gewünscht funktioniert. Ich möchte nämlich mit diesen Einzelwerten (Zahl oder Text) weitere Berechnungen in meinem Sheet durchführen. Vielen Dank im Voraus.
Option Explicit
Public Function SVERWEIS2(Kriterium As String, Bereich As Range, SuchSpalte As Integer, _ ErgebnisSpalte As Integer, Optional Unikate As Boolean = True, Optional Trenner As String = ", ") As String 'Autor: Ransi Dim arrTmp Dim L As Long Dim Mydic As Object arrTmp = Bereich Set Mydic = CreateObject("Scripting.Dictionary") If Unikate = True Then For L = 1 To UBound(arrTmp) If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(arrTmp(L, ErgebnisSpalte)) = 0 Next SVERWEIS2 = Join(Mydic.keys, Trenner) Else: For L = 1 To UBound(arrTmp) If arrTmp(L, SuchSpalte) = Kriterium Then Mydic(L) = arrTmp(L, ErgebnisSpalte) Next SVERWEIS2 = Join(Mydic.items, Trenner) End If End Function