Anpassen, wo (Leerzeichen)

For A = 1 To Len(Cells(1, 1))
B = B & Right(Left(Cells(1, 1), A), 1) & "|"
Next A
Cells(2, 1) = B
End Sub

dieses Funktioniert auch Super, --> Danke
aber wo kann ich die Quellzelle einstellen ich habe verschiedenes probiert, aber sobald ich was ändere wird der Text nicht mehr komplett ausgegeben oder wird verlängert

Also: Ich will z.B Zelle P1 nutzen

ANMERKUNG:

am liebsten wäre es mir, dass wenn ich z.B in die Zelle A15
einer Wert eingebe und sobald ich enter drücke, dieser aufgesplittet wird

Danke nochmals

Steffen