Zahlen extrahieren 123-45/67-890 -> 1234567890

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Christian
Geschrieben am: 13.06.2002 - 13:43:04

Wie kann ich aus einer Serien Nummer variabler Länge den Bindestrich - und / entfernen um nur die reine Zahl zu erhalten. Zur Info: die führenden Zahlen (vor dem Bindestrich)und endeten Zahlen (nach dem zweiten Bindestrich) können drei oder auch vierstellig sein.

Danke
Christian

nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: WernerB.
Geschrieben am: 13.06.2002 - 13:49:04

Hallo Christian,

mit einer Formel:
=WERT(WECHSELN(WECHSELN(A1;"-";"");"/";""))

Oder wolltest Du eine VBA-Lösung?

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Andreas
Geschrieben am: 13.06.2002 - 13:50:04

Hallo Christian,

Seriennummer steht in Zelle A1, Formel dann so:
=WERT(WECHSELN(WECHSELN(A1;"-";"");"/";""))

Viel Spaß,
Andreas

nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Hajo
Geschrieben am: 13.06.2002 - 13:50:52

Hallo Christian

=WECHSELN(C9;"-";"")

Gruß Hajo


nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Danke, gibt's das auch in VBA?
Geschrieben am: 13.06.2002 - 14:19:59

Funktioniert, vielen Dank, gibt's dafür auch eine VBA Lösung?

Gruss
Christian


nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Andreas
Geschrieben am: 13.06.2002 - 14:23:58

Hallo Christian,

das gleiche in VBA:

Sub SerienNr()
Dim strWert$

strWert = Range("A1").Value
strWert = Replace(Replace(strWert, "-", ""), "/", "")
MsgBox strWert
End Sub


Viel Spaß,
Andreas
nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Hajo
Geschrieben am: 13.06.2002 - 14:26:08

Hallo Christian

Sub Test()
    Dim Wert As String
    Wert = "123-458-4569"
    Wert = Application.Substitute(Wert, "-", "")
End Sub

Gruß Hajo


nach oben   nach unten

Re: Zahlen extrahieren 123-45/67-890 -> 1234567890
von: Dank, Dank , 1000Dank
Geschrieben am: 13.06.2002 - 14:26:54

Man lernt ja nie aus....

Gruss
Christian


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zahlen extrahieren 123-45/67-890 -> 1234567890"