Vielen Danke für eventuelle Hilfe!!!
Andreas
Sub own_concatenate()
Dim selCell As Range
Dim firstCell As String
Dim textfield As String
textfield = ""
For Each selCell In Selection
If textfield = "" Then
textfield = selCell.Text
selCell.Clear
firstCell = ActiveCell.Address
Else
textfield = textfield & vbCrLf & selCell.Text
selCell.Clear
End If
Next
**** Cells.Select = firstCell
ActiveCell.Text = textfield
End Sub