|
Hi zuzsammen,
ich habe folgendes Problem:
In einer Excel-Zelle liegt ein zusammenhängender Text vor:
"Bedingung 1: lala
Bedingung 2: lala
Vorgehen: lala
Ergebnis: lala"
Diesen Text möchte ich gerne in 4 Zellen aufteilen, nämlich eine mit "Bedingung 1: lala" , eine mit "Bedingung 2: lala" , eine mit "Vorgehen: lala" und eine mit "Ergebnis: lala".
Ich habe dazu schon ein Makro gefunden, welches nach JEDEM Wort trennt:
' aufteilen auf die Zeile in beliebiger Länge
'
Public Sub Aufteilen_I()
Dim iZeile As Integer
Dim lSpalte As Integer
Dim iSpalte As Integer
Dim iPosit As Integer
Application.ScreenUpdating = False
For iZeile = 1 To Range("A65536").End(xlUp).Row
lSpalte = Cells(iZeile, 256).End(xlToLeft).Column
If lSpalte < 3 Then lSpalte = 3
Range(Cells(iZeile, 3), Cells(iZeile, lSpalte)).ClearContents
iSpalte = 3
For iPosit = 1 To Len(Range("A" & iZeile).Value)
If Mid(Range("A" & iZeile).Value, iPosit, 1) = Chr(10) Then
iSpalte = iSpalte + 1
Else
Cells(iZeile, iSpalte).Value = Cells(iZeile, iSpalte).Value & _
Mid(Range("A" & iZeile).Value, iPosit, 1)
End If
Next iPosit
Next iZeile
Application.ScreenUpdating = True
End Sub
Ich möchte ja aber nach bestimmten Worten, nämlich "Bedingung 1:", "Bedingung 2:" , "Vorgehen: " und "Ergebnis:" trennen.
Leider bekomme ich obigen Code nicht angepasst und wäre für eure Hilfe sehr dankbar.!
Schöne Grüße, swizz-john
|