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
als Antwort auf: [#571920]