Sub SaetzeTrennen()
Dim Tabelle As Object
Dim Text As String
Dim Zeile As Long
Set Tabelle = Application.ActiveSheet
Text = Tabelle.Cells(1, 1).Value
Zeile = 2
Do While Text <> ""
If InStr(1, Text, ". ") > 1 Then
Tabelle.Cells(Zeile, 1).Value = Mid(Text, 1, InStr(1, Text, ". "))
Text = Mid(Text, InStr(1, Text, ". ") + 2)
Zeile = Zeile + 1
Else
Tabelle.Cells(Zeile, 1).Value = Mid(Text, 1)
Text = ""
End If
Loop
End Sub