Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Font.ColorIndex = -4105 Then Exit Sub
DoIt Target
End Sub
Private Sub DoIt(ByVal myCell As Range)
Dim Bezug As String
Dim Matrix() As String
Application.EnableEvents = False
On Error Resume Next
Bezug = StrConv(myCell.Value, vbUnicode)
Matrix = Split(Left(Bezug, Len(Bezug) - 1), vbNullChar)
Set myCell = myCell.Offset(0, 1)
Range(myCell, myCell.Offset(0, UBound(Matrix))) = Matrix
On Error GoTo 0
Application.EnableEvents = True
End Sub