AW: VBA oder Excel - Spalten in eine Zelle spielen
28.03.2019 07:11:51
MCO
Guten Morgen!
An den Feinheiten kannst du sicher noch arbeiten, aber erst mal macht es, was es soll.
Tip für den nächsten Beitrag:
Hier sind alle faul. So faul, dass die meisten keine Tabellen nachbauen um dafür was zu stricken.
Dem entsprechend ist dann auch das Antwortverhalten.
Also bitte demnächst die Testtabelle mit hochladen / anhängen, gerne zusätzlich zum erklärenden Bild.
Sub test()
For Each nam In Range("A:A").SpecialCells(xlCellTypeConstants)
Set gef = Range("H:H").Find(nam, , , xlWhole)
If Not gef Is Nothing Then
For sp = 2 To nam.End(xlToRight).Column
begr = Cells(nam.Row, sp)
If InStr(gef.Offset(0, 1), begr) = 0 Then
gef.Offset(0, 1) = gef.Offset(0, 1) & "," & begr
End If
Next
Else
Set Rng = Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
Rng.Value = nam
For sp = 2 To nam.End(xlToRight).Column
begr = Cells(nam.Row, sp)
If InStr(Rng.Offset(0, 1), begr) = 0 Then
Rng.Offset(0, 1) = Rng.Offset(0, 1) & "," & begr
End If
Next
End If
Next
End Sub
Gruß, MCO