Hallo,
da du am Ende auch die Mutterzelle überschrieben haben willst funktioniert das nur mit einem Makro. Auf die Schnelle:
Sub Splitten()
Dim iRow As Long
Dim iCol As Integer
Dim sTxt As String
sTxt = ActiveCell.Value
If sTxt = "" Then Exit Sub
iCol = ActiveCell.Column
iRow = ActiveCell.Row - 1
Do While InStr(sTxt, "; ")
iRow = iRow + 1
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, "; ") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, "; ") - 1)
Cells(iRow + 1, iCol).Value = sTxt
Loop
End Sub
Cursor in beliebige Zelle mit dem Text stellen und Makro laufen lassen.
Das Makro kannst du auch auf ein Tastaturkürzel legen.
Klappt's?
Gruß
Klaus