Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
16.05.2024 19:06:22
Monatssumme / Zahlweise / Kalenderjahr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Separierung Zahlen aus Zeichenfolge

Separierung Zahlen aus Zeichenfolge
13.11.2023 16:57:48
Martha13
Ich suche eine formel mit dem Ziel die folgenden Zeichen zu separieren:
7.1.2 Helferstunden
2.2.89 Zulage Geotextilunterlage
3.1.10
3.1.7
3.1.8
3.1.9
4.1.1
4.1.10 Leerrohre DN 100
4.1.13 Leerrohrgraben (Maschinenaushub)
4.1.11 Leerrohre DN 150
4937FXLEI0 Tdo 4.1.1
4937FXLEI0 TDo 4.1.8 Schotter für Ausbes
4937FXLEI0 TDo 7.1.2 Helferstunden
DH135_KEng_7.1.2 Helferstunden
M1ILQ_INik_4.1.1 Ausbau ungeeigneter Böd
M1ILQ_INik_4.1.5BodenlieferungzumAustaus
M1ILQ_INik_4.3.5 Stahlbau HilfsundUnterk
M1ILQ_INik_4.4.7 Kabelformsteine

Ziel: 4.1.1 bzw. 3.1.8 der 7.1.2

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Separierung Zahlen aus Zeichenfolge
13.11.2023 17:07:24
daniel
nur so als tipp:
ein bisschen Höflichkeit erhöht die Hilfsbereitschaft.
also beispielsweise eine kleine Anrede zu beginn und ein kleiner Gruß am Ende, so wie wenn man sich mit echten Menschen unterhalten würde (was man ja auch tut, wir sind hier nicht bei ChatGP)
AW: Separierung Zahlen aus Zeichenfolge
13.11.2023 17:32:29
Yal
Hallo Martha,

ich gehe davon aus, dass unter "Zahl" der Muster "Zahl-Punkt-Zahl-Punkt-Zahl" gemeint, also in der Zeile
4937FXLEI0 TDo 7.1.2 Helferstunden
eben 7.1.2 und nicht 4937 gemeint ist.

Mustererkennung kann man mit regular expression abfangen. Da es nicht als Formel verfügbar, muss man seine eigene User Defined Function programmieren: 


Function RegExExtrakt(ByVal Target) As String

Dim R

    If TypeOf Target Is Range Then Target = Target.Cells(1).Value

    Set R = CreateObject("VBScript.RegExp")

    R.Pattern = "\d+\.\d+\.\d+"

    On Error Resume Next

    RegExExtrakt = R.Execute(Target)(0)

End Function

(in einem allgemeinen Modul ablegen. MEnü "Einfügen", "Modul")

Dann im Excel-Blatt
=RegExExtrakt(A1)
eingeben.

VG
Yal
Anzeige
AW: Separierung Zahlen aus Zeichenfolge
13.11.2023 20:06:54
Martha13
Vielen Dank. Ich versuch mal mit Deiner Lösung.
AW: Separierung Zahlen aus Zeichenfolge
13.11.2023 17:46:16
daniel
HI

mit deiner Excelversion ohne VBA schwierig.
in Excel 365 bespielsweise mit dieser Formel: 
=LET(txt;TEXTTEILEN(A1;{" ";"_"});INDEX(txt;VERGLEICH("*.*.*";txt;0)))

allerdings sollte die Zahlenfolge immer durch ein eindeutiges Trennzeichen vom restlichen Text getrennt sein (in der Formel " " oder "_")
diese Zeile: 
M1ILQ_INik_4.1.5BodenlieferungzumAustaus
sollte normalerweise nicht vorkommen (ansonsten wirds komplizierter)

gruß Daniel
Off topic
14.11.2023 05:30:36
RPP63
Moin!
Ich weiß, dass dies hier ein Excel-Forum ist, dennoch:
In Google Sheets und Libre Office Calc kann man Regex mit Formeln abbilden.


Gruß Ralf
Anzeige
Ganz Off topic ist es nicht
14.11.2023 13:58:50
Yal
jetzt weisst Du, woher ich die Idee von RegExExtrakt hatte...

Hier die Version mit dem Pattern als Parameter, also genau wie in Google Sheet (und Extract mit c anstatt k ;-) 

Function RegExExtract(ByVal Target, Pattern As String) As String

Dim R

    If TypeOf Target Is Range Then Target = Target.Cells(1).Value 'bei mehrere Zelle nur die erste

    Set R = CreateObject("VBScript.RegExp")

    R.Pattern = Pattern

    On Error Resume Next

    RegExExtract = R.Execute(Target)(0)

End Function


VG
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige