Zahlen aus einer Zeichenkette extrahieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…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

Beliebteste Forumthreads (12 Monate)

Zahlen aus einer Zeichenkette extrahieren

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen aus einer Zeichenkette extrahieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread