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
laenge = Len(ausgangstext)
Pos1 = InStr(ausgangstext, "zum")
text_1 = Left(ausgangstext, laenge - (Pos1 - 1))
text_2 = Right(ausgangstext, Pos1 - 1)
Worksheets("Tabelle1").Cells(1, 3).Value = text_1
Worksheets("Tabelle1").Cells(1, 4).Value = text_2
End Sub