Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1704to1708
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
Inhaltsverzeichnis

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

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)
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
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

383 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige