Thema Datum  Von Nutzer Rating
Antwort
Rot Text aus einer Zelle anhand eines Stichwortes aufteilen
01.03.2017 10:58:10 Swizz-john
NotSolved
01.03.2017 13:34:46 Gast57109
NotSolved

Ansicht des Beitrags:
Von:
Swizz-john
Datum:
01.03.2017 10:58:10
Views:
226
Rating: Antwort:
  Ja
Thema:
Text aus einer Zelle anhand eines Stichwortes aufteilen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Text aus einer Zelle anhand eines Stichwortes aufteilen
01.03.2017 10:58:10 Swizz-john
NotSolved
01.03.2017 13:34:46 Gast57109
NotSolved