Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 09:06:52
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zahlen mit Punkt aus Zelle auslesen

Zahlen mit Punkt aus Zelle auslesen
14.08.2019 10:26:45
Frankw
Hallo zusammen,
ich habe einen Fall, in dem ich aus einer Zelle nur die Zahlen mit einem Punkt dazwischen brauche.
Zb
xyzxxz-23zxz soll 23
yxyz23.1v soll 23.1
yxzyxz23.1.1yxyx soll 23.1.1
Die Buchstabenlänge und -folge ist willkürlich, ebenso kommen auch die Zahlen mit keinen bis max 2 Punkten vor.
Dieser Code von Eule hat mir gut weitergeholfen, danke an dieser Stelle.

Function BuchstRaus(rng As Range)   '=BuchstRaus(A1)
Dim intz As Integer
For intz = 1 To Len(rng)
Select Case Asc(Mid(rng, intz, 1))
Case 48 To 57
BuchstRaus = Val(BuchstRaus & Mid(rng, intz, 1))
End Select
Next intz
End Function

Nur werden leider damit wirklich nur die Zahlen (ohne Punkt) ausgelesen.
zb
yxzyxz23.1.1yxyx wird 2311
Könnt ihr mir bitte einen Tipp geben, wie das funktionieren könnte?
Vielen Dank
frankw
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: "like"
14.08.2019 10:38:09
Fennek
Hallo,
sieh die einmal die "like"-Funktion an.

for b = 1 to len(cells(1,1))
if mid(cells(1,1), b, 1) like "[#.]" then Tx = Tx & mid(cells(1,1),b,1)
next b
Falls es nicht geht, versuche like "1234567890."
mfg
(Pseudocode, ungetestet)
Anzeige
AW: Zahlen mit Punkt aus Zelle auslesen
14.08.2019 10:48:19
hary
Moin
Versuch es mal damit.
Function BuchstRaus(rng As Range)   '=BuchstRaus(A1)
Dim intz As Integer
For intz = 1 To Len(rng)
Select Case Asc(Mid(rng, intz, 1))
Case 48 To 57, 46
BuchstRaus = BuchstRaus & Mid(rng, intz, 1)
End Select
Next intz
End Function

gruss hary
Anzeige
AW: Zahlen mit Punkt aus Zelle auslesen
14.08.2019 10:57:31
Frankw
das ging verdammt schnell, Danke euch :)
Ich kann es erst heute Nachmittag testen, aber werde mich sofort nochmal melden.
als Arrayformel
14.08.2019 11:04:51
WF
Hi,
{=TEIL(LINKS(A1;MAX(WENN(ISTZAHL(TEIL(A1;ZEILE(X1:X40);1)*1);ZEILE(X1:X40)))); MIN(WENN(ISTZAHL(TEIL(A1;ZEILE(X1:X40);1)*1);ZEILE(X1:X40)));40) }
Funktioniert allerdings nur bei einer Zahl-Punkt-Kombi
ab12.1.1 wf 4.5xx z.B. ergibt Müll
WF
Anzeige
Mit Normal-Fml und UDF so, ...
15.08.2019 12:32:20
Luc:-?
…Frank:
=MaskOn(A1;"zw") Oder so: =MaskOn(A1;"num";".")
Auch mehrere (Pkt-)Zahlen in einem Text lassen sich so problemlos extrahieren und bei Bedarf mit folgd pluraler MatrixFml auch gleich auf mehrere Zellen aufteilen:
{=VSplit(MaskOn(A1;"zw"))} Oder so: {=VSplit(MaskOn(A1;"num";"."))}
UDF-Links:
MaskOn (Vs2.1) https://www.herber.de/forum/archiv/1344to1348/1344962_Initialen_bei_Doppelnamen.html#1345181
VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (BspDatei m.UDFs)
Gruß, Luc :-?
„Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen.“ H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit …

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige