Zahlen aus einer Zeichenkette extrahieren

uteh · 2013-08-03T14:11:04+00:00

Liebes Forum, ich versuche, aus einer Zeichenkette wie z.B. 12abc5667xyz9 nur die Zahlen zu extrahieren. Irgendwie verzettele ich mich dabei mit den Formeln. Ich vermute sehr, dass ich es zu umständlich zu lösen versuche und bin daher über jeden Tipp sehr dankbar. Viele Grüße und danke im Voraus, Ute

…wohl nachträglich was zerhauen, denn das müsste die alte Erstversion sein. Die 2.Proz ist keine, sondern eine Einsprungmarke für einen UP-Aufruf. Aber das ist die älteste (muss ich wohl mal eine neuere Version einstellen!).
Ansonsten hatte ich hier kürzlich erst eine Linkliste eingestellt, was ich gelegentlich mache.
Wir sehen hier doch stets nur die Beiträge derjenigen, die entweder gar nicht recherchieren oder dabei nichts bzw nichts Passendes (zu) finden (meinen). Wer das Archiv auf CD kauft, dürfte aber von vornherein auf Recherche eingestellt sein, denn sonst wäre der Kauf ja sinnlos! Damit erfüllen solche Hinweise bestimmt doch noch (irgendwann) ihren Zweck, wenn viell auch nicht unmittelbar! ;-)
Gruß Luc :-?

Hallo
Tabelle1

	A	B	C	D	E
1	12abc5667xyz9	12 5667 9	12	1
2			5667	2
3			9	5
4				6
5				6
6				7
7				9
8
9
10

Formeln der Tabelle

Zelle	Formel
B1	=nichtZahlenRaus(A1)
C1	=extractZahlen($A$1;ZEILE(A1))
D1	=extractEinzelZahlen($A$1;ZEILE(A1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dazu diese Codes in ein Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function nichtZahlenRaus(zelle, Optional Trenner = " ") As String
    Dim Regex As Object
    Set Regex = CreateObject("VbScript.Regexp")
    With Regex
        .Pattern = "\D+"
        .Global = True
        nichtZahlenRaus = .Replace(zelle.Text, Trenner)
    End With
End Function

Function extractZahlen(zelle, intI As Integer) As Long
    Dim Regex As Object
    Set Regex = CreateObject("VbScript.Regexp")
    With Regex
        .Pattern = "\d+"
        .Global = True
        extractZahlen = .Execute(zelle.Text)(intI - 1)
    End With
End Function

Function extractEinzelZahlen(zelle, intI As Integer) As Long
    Dim Regex As Object
    Set Regex = CreateObject("VbScript.Regexp")
    With Regex
        .Pattern = "\d"
        .Global = True
        extractEinzelZahlen = .Execute(zelle.Text)(intI - 1)
    End With
End Function

ransi

Zahlen aus einer Zeichenkette extrahieren

Forumthread: Zahlen aus einer Zeichenkette extrahieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial