EXCEL: Text von einer Zelle auf zwei Zellen aufteilen

[Montafon]

du kannst auch diese Funktion nehmen - ist selbsterklärend

nur zur Hilfe
"Nr" steht für 1 2 3 4 Teil


Public Function strParse(Data, Trenn, Nr)
On Error Resume Next
Dim MainData() As String, SplitData() As String
MainData = Split(Data, Trenn)
SplitData = Split(MainData(Nr - 1), Trenn)
strParse = SplitData(0)
End Function