Hallo Mirabelle,
im Prinzip das gleiche:
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
Das mit den Großbuchstaben könnte man noch abfragen, aber bei z. B. : " z. B. " geht auch diese Routine schief. Da muß man noch etwas mehr filtern und abfragen.
Einfacher wäre hier vielleicht den Text anzuzeigen und den Benutzer entscheiden zu lassen.
Gruß Detlev
|