Beispieldatei: https://www.herber.de/bbs/user/156666.xlsx
Public Function mySplit(ByVal Target, Index As Long, Optional Trenner = vbLf)
mySplit = Trim(VBA.Split(Target, Trenner)(Index - 1))
End Function
Diese Function muss in einem allgemeinen Modul abgelegt sein.