Excel Text zwischen 2 Zeichenfolgen suchen

Von: , 22.02.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.

2 Antworten zu dieser Frage

      • Antwort von nach einem Tag 0 hilfreich
        Re: Excel Text zwischen 2 Zeichenfolgen suchen

        Kann ich leider auch nicht weiterhelfen

      • Antwort von nach 6 Tagen 0 hilfreich
        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
        
        

        Jetzt auf diese Frage antworten.