Textverarbeitung
Von: onechrisfrie, 22.2.2011 00:36 Uhr
Hallo liebe Excel Experten,
ich suche eine Funktion die in Feldern Text der zwischen zwei Zeichenfolgen in meinen Fall eine ul steht in eine neue Spalte schreibt.
Also der Text steht zwischen der Zeichenfolge
    und

und soll in eine neue Spalte kopiert werden.
besser wäre sogar die eine Spalte in zwei aufzuteilen.
hier ein Beispiel:
hier ist text bla bla...
    diesen Text suchen und in eine neue Spalte kopieren


das soll in eine neue Spalte kommen mit:

hier ist text bla bla...

und in zweite Spalte

    diesen Text suchen und in eine neue Spalte kopieren


ich finde einfach keine Passende Lösung für mein Problem.



  1. Antwort von S.Müller 0
    Re: Excel Text zwischen 2 Zeichenfolgen suchen
    Kann ich leider auch nicht weiterhelfen
    • Antwort von Pelikan76 0
      Re: Excel Text zwischen 2 Zeichenfolgen suchen
      Hallo,
      Du hast die Möglichkeit es einfach mit „Suchen und Ersetzen“ zu entfernen (strg+H).
      Als ersten kopiert Du den ganzen Inhalt aus deiner Spalte A in Spalte B. Dann hast Du immer noch deine ursprünglichen Daten in Spalte A.

      Spalte B markieren und auf strg+h drücken.
      Dann in dem Feld „Suchen nach“ gibt Du dann
      "<ul>"
      ein.
      In dem Feld „Ersetzen durch“ einfach leer lassen und dann auf „alle ersetzen“ klicken.

      Das gleich wiederholst Du dann auch für
      "</ul>"
      .

      Fertig.

      Alternative kannst Du es auch entfernen mit einem Makro der genau das gleiche macht wie oben beschreiben.
      Modul einfügen Code pasten und ausführen.

      Sub Makro1()
      '
          Columns("A:A").Select
          Selection.Copy
          Columns("B:B").Select
          ActiveSheet.Paste
          Columns("B:B").Select
          Selection.Replace What:="<ul>", Replacement:="", LookAt:=xlPart, _
              SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
              ReplaceFormat:=False
          Selection.Replace What:="</ul>", Replacement:="", LookAt:=xlPart, _
              SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
              ReplaceFormat:=False
          Range("C1").Select
      End Sub