Sub test()
Dim IngLz As Long, IngZ As Long, lngS As Long, IngSpalte As Long
Dim sAlles As String
IngSpalte = 6
IngZ = Cells(Rows.Count, IngSpalte).End(xlUp).Row
For IngLz = 1 To IngZ
For lngS = 1 To IngSpalte
If Not IsEmpty(Cells(IngLz, lngS)) Then
sAlles = sAlles & "|" & Cells(IngLz, lngS)
End If
Next
Next
Cells(IngZ + 1, 1) = sAlles
End Sub