Zahl aus Text extrahieren?

[Jockel]

Hallo, hab nochmal nachgebessert..:

PHP-Code:

=TEIL(A1;3;WENNFEHLER(SUCHEN("_";TEIL(A1;3;99));99)-1) 


Arbeitsblatt mit dem Namen 'Pareto'
	A	C
1	P_12313_abc	12313
2	P_2333_abc	2333
3	P_3_abcde	3
4	P_233345678_abc	233345678
5	P_1006	1006

Zelle	Formel
C1	=--TEIL(A1;3;WENNFEHLER(SUCHEN("_";TEIL(A1;3;99));99)-1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[00202]

Hallo, :19:

eventuell als Alternative - RegExp: :21:
[attachment=23313]

[chrissy]

Case, 

kannst du dir Formel reinposten. Möchte ungern Dateien öffnen. 

Die Formel von Jokel funktioniert, ich verstehe sie jedoch nicht 100 Prozent, vor allem den zweiten Teil .

[00202]

Hallo, :19:

das in eine Modul: :21:

Code:

Option Explicit
Function fncZahl(strTMP As String) As String
    Dim objRegEx As Object
    Dim objValue As Object
    Set objRegEx = CreateObject("VbScript.RegExp")
    With objRegEx
        .Pattern = "\d+"
        Set objValue = .Execute(strTMP)
        If objValue.Count Then
            fncZahl = objValue(0)
        Else
            fncZahl = "Keine Zahl!"
        End If
    End With
    Set objValue = Nothing
    Set objRegEx = Nothing
End Function

Und dann z. B. in B1 "=fncZahl(A1)"

[chris-ka]

Hi,

Oder einfach in ein paar Sek. trennen ohne VBA, Formel, Daten Text in Spalten oder PQ.

https://www.clever-excel-forum.de/thread...#pid153732

[Kuwer]

Hi Ralf,

das in eine Modul: :21:

Code:

...

Und dann z. B. in B1 "=fncZahl(A1)"

geht doch (ohne Datei).

Gruß Uwe

[chrissy]

Case, 

ich bin neu in Excel. Wo kann ich diesen Code eingeben, um fncZahl(a1) nutzen zu können?

[WillWissen]

Hallo Chrissy,

mit Alt-F11 kannst du den VBA-Editor öffnen. Dort hinein kopierst du den Code und speicherst deine Datei als .xlsm oder .xlsb ab.

Noch ein Hinweis: Vollzitate sind in der Regel nicht nötig. Es reicht, wenn du auf einen bestimmten Eintrg antwortest, den entsprechenden User mit Namen anzusprechen.

[chrissy]

Ich habe, sowie es du gesagt hast, gemacht. Trotzdem geht die Funktion nicht

[Jockel]

Hallo Chrissy,

mit Alt-F11 kannst du den VBA-Editor öffnen. Dort hinein kopierst du den Code ...

Moin, das gehört in ein Modul... Also einfach Alt-F11 und dort rein damit reicht nicht... ... steht aber auch auch im thread (2x) ...