Microsoft Excel

Herbers Excel/VBA-Archiv

string löschen bis zum "P"

    Betrifft: string löschen bis zum "P"
    von: henning
    Geschrieben am: 22.05.2003 - 09:44:49

    hi leute

    kann mir mal wer zur hand gehen mit nem vorschlag wie ich alle zeichen (von links) die vor dem ersten P im string stehen löschen kann?

    string ist "länge 12,67 m enthalten sind pos.5, pos....."
    da die zahl vorne variabel ist komme ich mit längenangabe alleine nicht weiter.

    danke für hilfe


    henning

      

    Re: string löschen bis zum "P"
    von: Michael Scheffler
    Geschrieben am: 22.05.2003 - 09:47:38

    Mit InStr und Right solltest Du weiterkommen.

      

    Re: string löschen bis zum "P"
    von: henning
    Geschrieben am: 22.05.2003 - 09:50:12

    das stimmt michael

    aber leider konnte ich micr aus der recherche noch nicht so recht zusammenreimen wie das dann aussehen muß...

    merci schonmal


    henning

      

    Re: string löschen bis zum "P"
    von: Holger Levetzow
    Geschrieben am: 22.05.2003 - 10:00:01

    t = Range("A14")
    t = Right(t, Len(t) - WorksheetFunction.Find("p", t) + 1)

    Holger

      

    Re: string löschen bis zum "P"
    von: henning
    Geschrieben am: 22.05.2003 - 10:15:19

    merci holger

    das probier ich gleich mal aus...


    henning

      

    Re: string löschen bis zum "P"
    von: henning
    Geschrieben am: 22.05.2003 - 10:23:56

    hi holger

    leider kommt als fehlermeldung: laufzeitfehler 1004 "die find-eigenschaft des worksheet-function objektes kann nicht zugeordnet werden"

    was ist da falsch?


    henning

      

    Re: string löschen bis zum "P"
    von: Martin Beck
    Geschrieben am: 22.05.2003 - 12:19:48

    Hallo Henning,

    String steht in A14.


    Sub vor_p_weg()
    X = Right(Range("A14"), Len(Range("A14")) - InStr(1, Range("A14"), "p") + 1)
    MsgBox X
    End Sub

    Gruß
    Martin Beck

      

    danke
    von: henning
    Geschrieben am: 22.05.2003 - 15:02:56

    merci martin
    es geht

    danke

    henning