mehrere SVERWEIS-Ergebnisse kommagetrennt in eine Zelle

[atilla]

Hallo zusammen,
was ist in letzter zeit los?

Das ist innerhalb kürzester Zeit die 4 Anfrage, um Zelleninhalte als String zu verketten.

Schau mal:
http://www.clever-excel-forum.de/thread-...l#pid71591
http://www.clever-excel-forum.de/thread-...l#pid74597

Und hier der Code angepasst auf Deine Datei:

Code:

Sub mach_wieder()
 Dim i As Long, j As Long
 Dim lngZ As Long

 Dim arr As Variant
 Dim varK
 Dim D1 As Object
 Set D1 = CreateObject("Scripting.Dictionary")

 Application.ScreenUpdating = False

 With Worksheets("Tabelle1")
   lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row
     arr = .Range("a2:b" & lngZ)
     For i = 1 To UBound(arr)
       D1(arr(i, 1)) = D1(arr(i, 1)) & ", " & arr(i, 2)
     Next i
     Range("H2").CurrentRegion.Offset(1, 0).Resize(, Range("D2").CurrentRegion.Columns.Count).ClearContents
     For Each varK In D1.Keys
         .Cells(j + 1, 8) = varK
         .Cells(j + 1, 9) = Mid(D1(varK), 2)
         j = j + 1
     Next
 End With

End Sub

Geschrieben wird in die Spalten H:I