Option Explicit Sub verketten() Dim rngC As Range, strKette As String For Each rngC In Range("A1:A5") strKette = strKette & ", " & rngC Range("B1").Value = Right(strKette, Len(strKette) - 1) Next End Sub
58.4k Fragen
249k Antworten
7k Nutzer