Microsoft Excel

Herbers Excel/VBA-Archiv

Trennen von Text

    Betrifft: Trennen von Text von: Helene
    Geschrieben am: 02.09.2003 08:53:58

    Hallo,
    Ich habe in einem Feld folgenden Text: XXXYYY AG Bern. Jetzt muss ich Excel dazu bringen, den Ort (Bern), der immer verschieden lang sein kann, in ein separates Feld zu schreiben.
    Kann mir jemand weiterhelfen? Vielen Dank.
    Helene

      


    Betrifft: AW: Trennen von Text von: Marcus Rose
    Geschrieben am: 02.09.2003 09:00:48

    Hallo,

    hier eine Möglichkeit:

    Tabelle1
     ABC
    14xxx yyy Bernxxx yyy Bern
    Formeln der Tabelle
    B14 : =LINKS(A14;LÄNGE(A14)-FINDEN(" ";A14))
    C14 : =RECHTS(A14;FINDEN(" ";A14))
    Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
    Gruß Marcus

    Die neue Excel-Homepage für Anfänger

      


    Betrifft: Reiner Zufall, dass Deine Lösung funktioniert... von: Boris
    Geschrieben am: 02.09.2003 09:53:26

    Hi Marcus,

    schreib mal in A14: xxxxx yyy Bern - das geht schon in die Hose...;-)

    Wenn es immer nach dem letzten Leerzeichen gehen kann, dann erhälst du den Ort mit (Array-Formel):
    {=TEIL(A14;MAX((TEIL(A14;SPALTE($1:$1);1)=" ")*SPALTE($1:$1));99)}

    Der Rest sollte dann kein Problem mehr sein.

    Grüße Boris


      


    Betrifft: Immer diese Zufälle .... von: Marcus Rose
    Geschrieben am: 02.09.2003 10:15:42

    Hallo Boris,

    danke, das Du Bescheid gegeben hast, hatte jetzt auch wirklich nur an dem Beispiel getestet. Und das klappte ja prima. Pech gehabt ... und wieder etwas dazu gelernt.


    Gruß Marcus

    Die neue Excel-Homepage für Anfänger


      


    Betrifft: AW: Trennen von Text von: Remo
    Geschrieben am: 02.09.2003 09:01:09

    Hi Helene!

    Ich bin auch nicht wirklich gut in VBA. Aber du musst eine Abfrage nach einem Leerzeichen machen und einen counter von 0 auf 2 starten.
    Mit einer do while i <> 2 kannst du den Ort schliesslich in die nächste Zeile bringen..
    Zur nächsten Zeile kommst du mit Cells(1,i).select


    Gruss Remo


      


    Betrifft: AW: Trennen von Text von: Matthias G
    Geschrieben am: 02.09.2003 09:16:16

    Hallo Helene,

    folgenden code in ein Modul:
    Function LastWord(text As String) As String
    Dim i, l As Long
    text = RTrim(text) ' folgende Leerzeichen abschneiden
    l = Len(text)
    For i = l To 1 Step -1
        If Mid(text, i, 1) = " " Then Exit For
    Next i
    LastWord = Mid(text, i + 1)
    End Function
    


    Dann hast du z.B. mit =LastWord(A1) eine Formel für das letzte Wort einer Zelle.

    Viele Grüße,
    Matthias


     

    Beiträge aus den Excel-Beispielen zum Thema " Trennen von Text"