habe jetzt eine Lösung, um die noch eine Schleife müsste...dann kann man darauf aufbauend das gewünschte Ergebnis erzielen!
'Teilt einen Text in einer Zelle in 2 Teile auf. Grenze ist ein Wort , hier "zum"
Public Sub Aufteilen_my_version()
Dim iZeile As Integer
Dim iPosit As Integer
Dim ausgangstext As String
Dim text_1 As String
Dim text_2 As String
Dim laenge As Integer
Dim zweiter_teil As String
ausgangstext = Worksheets("Tabelle1").Cells(2, 1).Value 'hier wird die Zelle für den Ausgangstext eingegeben
laenge = Len(ausgangstext)
Pos1 = InStr(ausgangstext, "zum") 'hier ist das zu trennende wort einzugeben
text_1 = Left(ausgangstext, laenge - (Pos1 - 1))
text_2 = Right(ausgangstext, Pos1 - 1)
Worksheets("Tabelle1").Cells(1, 3).Value = text_1 'hier werdne die beiden Textteile hingeschrieben
Worksheets("Tabelle1").Cells(1, 4).Value = text_2
End Sub
|