Office: Bestimmte Zeichen im String entfernen bis Bedingung erfüllt

Kikuk! Ich schon wieder ^^

Diesmal aber mit einem - denke ich - weitaus simpleren Problem ^^

Ich habe einen String der aus Zahlen besteht. Vorangestellt sind immer einige Nullen.
Beispielstring: 000000000012030608
Zur Ausgabe möchte ich allerdings diese Nullen entfernen.

Problematik hier - der String, der ausgegeben werden soll, kann auch Nullen enthalten, also nicht einfach nur

Code:

Replace(String,"0","")

oder so ^^

Ich hab mir das etwa so vorgestellt:
Entferne Zeichen "0" bis Zeichen >0


Ihr fragt euch auch sicherlich, warum ich Zahlen in einem String speicher ^^ Nunja, bald wird das Format dieser Zahl geändert und sie kann auch Bindestriche enthalten. Das wäre dann noch so ein Problem....
Beispielstring: 000-0000-0101-2337

Da müsste man schon hergehen und sagen:
Entferne Zeichen "0" und "-" bis Zeichen >0 und <> "-"

Ich weiß allerdings nicht ganz wie ich das umsetzen kann. Hab da schon irgendwie an Replace gedacht, aber ich weiß nicht, wie ich das ganze z.B. mit einer Schleife machen kann.

Weiß da jemand vlt weiter?

LG
lil

 

Hi,

wenn Du hier nur in Excel bleibst, kannst Du's vielleicht mit der TEIL()-Formel lösen. Dann müssten allerdings die Zahlen alle gleiches Format haben, d.h. insgesamt gleich viele Stelle und auch gleich viele Nullen vorne weg.

Gruß

 

Hm....

Hallo Andei,

Danke erstmal für deine Antwort.
Mit der Teilfunktion gäb es das Problem, dass die Zahl der Nullen vorne variiert.....
Ich habs momentan mit der WECHSELN-Funktion gelöst:

Code:

(WECHSELN(K3;"-";)*1))

Aber dadurch fallen leider alle Bindestriche weg. Es soll ja nachher etwa so aussehen:

000000000012345678 -> 12345678

bzw.

000-0000-1234-5678 -> 1234-5678


Ist das irgendwie machbar? :-(

LG
lil

 

Ist denn die Anzahl der Endziffern, die stehen bleiben sollen, immer gleich?

 

Ne, die variiert auch immer leider..... :-(

 

Sooooooooooooo, hier sind wir der Lösung nah gekommen:

Code:

Sub n() 
Dim b As String 
    b = "0000-0000-0105-1254" 

    While b Like "[!1-9]*" 
    b = Right(b, Len(b) - 1) 
    Wend 
    MsgBox b 
End Sub

Also so funktionierts jez :-)

Danke für eure Antworten :-)

LG
lil