Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1792to1796
1792to1796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl mit Länge X aus String lesen

Forumthread: Zahl mit Länge X aus String lesen

Zahl mit Länge X aus String lesen
17.11.2020 13:02:43
Mike
Hallo zusammen,
in einem String befindet sich ein Mix aus Buchstaben und Zahlen. Irgendwo darin gibt es eine zusammenhängende 6stellige Zahl die ich gerne auslesen möchte.
Sowohl die Position als auch die Zahl selber sowie aufbau bzw Formatierung ist immer unterschiedlich. Lediglich die Länge der Zahl ist vorgegeben.
zB
A12457 - 06Q 798465 - XKA1234_987DL.5 soll 798465 ausgeben
Habe gedacht ich könnte ggf. mit instr nach "######" suchen aber das wäre wohl zu einfach gewesen.
Hat jemand dazu einen Lösungsansatz?
Gruß
Mike
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:08:57
Bernd
Hi,
hier gefunden (http://www.office-loesung.de/ftopic501301_0_0_asc.php), eventuell kannst draus was machen:
Option Explicit
Public Sub Beispiel() Dim objRegEx As Object Dim objMatch As Object Dim objMatchCollection As Object Dim strText As String Dim lZeile As Long Dim iSpalte As Integer For lZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row strText = Range("A" & lZeile).Value Set objRegEx = CreateObject("VBScript.RegExp") With objRegEx .MultiLine = True .Global = True .IgnoreCase = True .Pattern = "\d{6}" Set objMatchCollection = .Execute(strText) End With iSpalte = 2 For Each objMatch In objMatchCollection Cells(lZeile, iSpalte).Value = objMatch.Value iSpalte = iSpalte + 1 Next objMatch Next lZeile End Sub MfG Bernd
Anzeige
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:30:57
Mike
Hallo Bernd,
Danke für deine Antwort. Dies scheint in die selbe Richtung bzw identisch mit der Lösung von Nepumuk zu sein.
Gruß
Mike
AW: ungeprüft
17.11.2020 13:10:59
Fennek
Hallo,
so ähnlich könnte es gehen:

sub T_1
for i = 1 to cells(rows.count, 1).end(xlup).row
Tx = cells(i, 1)
for b = 1 to len(Tx) - 6
if mid(Tx, b, 6) like "######" then cells(i, columns.count).end(xltoleft).offset(,1) =  _
mid(Tx,b, 6)
next b
next i
mfg
Anzeige
AW: ungeprüft
17.11.2020 13:32:45
Mike
Hallo Fennek,
ein schöner Ansatz der mir gut gefällt und nach etwas Umbau auch zu einem tadellosen Ergebnis führt.
Danke dafür.
Gruß
Mike
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:14:12
Nepumuk
Hallo Mike,
ein Beispiel:
Option Explicit

Public Sub Test()
    Dim objRegEx As Object, objMatch As Object
    Dim strText As String
    strText = "A12457 - 06Q 798465 - XKA1234_987DL.5"
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "\b\d{6}\b"
        .IgnoreCase = False
        Set objMatch = .Execute(strText)
    End With
    If objMatch.Count = 1 Then MsgBox objMatch.Item(0).Value
    Set objMatch = Nothing
    Set objRegEx = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:34:34
Mike
Hallo Nepumuk,
auch deine Lösung passt perfekt. Ich bin zwar noch nicht ganz dahinter gestiegen aber das Ergebnis passt.
Danke und Gruß
Mike
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:41:30
Nepumuk
Hallo Mike,
einfach so: Suche nach 6 Ziffern \d{6} (d für Digit) an den Wortgrenzen \b (b für Boundaries)
Gruß
Nepumuk
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:49:00
Mike
Hallo Nepumuk,
habe mir das mit den Regulären Ausdrücken grade mal im Web angeschaut.
Kannte ich vorher nicht aber scheint eine prima Sache und gar nicht so kompliziert zu sein.
Danke und Gruß
Mike
Anzeige
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:24:14
Besserwisser
Hallo Mike,
falls auch eine Formel für Dich interessant ist (Text steht in A1, es wird nach einer 6-stelligen Zahl gesucht):
=AGGREGAT(14;6;--(TEIL(A1;ZEILE(INDIREKT("1:"&LÄNGE(A1)));6));1)
Viele Grüße
Christian
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:36:46
Mike
Hallo Chrisitan,
Danke für deinen Ansatz aber ich würde gerne bei einer vollständigen VBA Lösung bleiben.
Werde deine Formel aber im Hinterkopf behalten. Man kann ja nie wissen wann man es mal braucht.
Gruß Mike
Anzeige
Die Länge von A1 ist wurscht.
17.11.2020 14:01:00
A1
=AGGREGAT(14;6;1*(TEIL(A1;ZEILE(X1:X999);6));1)
WF
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:46:01
Matthias
Hi
mal ganz anderer Ansatz:
Tabelle1

 A
1A12457 - 06Q 798465 - XKA1234_987DL.5
2 
3 
412457
5 
6 
7 
843989
9 
10 
11 
12 
13 
14 
1579846
16798465
1798465
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
395

Formeln der Tabelle
ZelleFormel
A3=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A4=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A5=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A6=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A7=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A8=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A9=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A10=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A11=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A12=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A13=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A14=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A15=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A16=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A17=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A18=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A19=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A20=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A21=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A22=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A23=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A24=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A25=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A26=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A27=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A28=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A29=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A30=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A31=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A32=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A33=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A34=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A35=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A36=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A37=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A38=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")
A39=WENNFEHLER(--TEIL($A$1;ZEILE()-2;6);"")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:52:04
Mike
Hallo Matthias,
das scheint mir für meine Verwendung nicht in Frage zu kommen. Aber interessanter Lösungsansatz.
Danke und Gruß
Mike
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:47:49
Daniel
Hi

Deinstring = "A12457 - 06Q 798465 - XKA1234_987DL.5"
dim x
for each x in Split(DeinString, " ")
if x like "######" then Exit for
next
if not x is Nothing then x = Clng(x)
Gruß Daniel
Anzeige
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:55:38
Mike
Hallo Daniel,
auch deine Lösung wäre durchaus eine Überlegung aber es ist leider nicht immer gewährleistet,
dass davor oder danach ein Leerzeichen zu finden ist.
Danke und Gruß
Mike
AW: Zahl mit Länge X aus String lesen
17.11.2020 13:58:10
Daniel
Kann den auch mal eine Folge aus 7 oder mehr Ziffern vorkommen oder ist 6 die maximal mögliche Anzahl?
Gruß Daniel
Anzeige
GLÄ-WEX-WDH
17.11.2020 14:40:00
lupo1
=MAX(LET(x;TEIL(WECHSELN(A1;" ";WIEDERHOLEN(" ";199));SPALTE(A:K)*199-198;199);WENNFEHLER((ABS(x%%-55)&lt=45)*x;)))
ist nicht die kürzeste Variante und vor allem nur im neuesten Excel möglich, dafür aber ohne Einzeltests 1:999 oder 1:LÄNGE, die möglicherweise Power kosten.
Mit der bald zu erwartenden Funktion SPLITTEN wird es dann schöner:
=MAX(WENNFEHLER((ABS(SPLITTEN(A1)%%-55)&lt=45)*SPLITTEN(A1);))
Anzeige
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Zellinhalte Zahlen und Text extrahieren
Marky

Hallo Excel Spezialisten !
Ich würde gerne aus zwei nebeneinander stehenden Spalten die Zellinhalte extrahieren.
Die Zellinhalte bestehen aus Zahlen und Text. Die aus den Zellen zu extrahierenden Zahlen und Texte
stehen immer in den Spalten K10 und N10.
Die Zielzellen sind immer...
29.09.2008 12:55:00
Thread-ID: 1013076
6 Beiträge
Zahl aus Text
Holger

Hallo Leute,
heute hab ich mal wieder ein Problem.
Habe mir per Webabfrage Zahlen aus dem Netz in meine Tabelle eintragen lassen. Zahlen sind maximal 4-stellig vor dem Komma und mehrere Stellen rechts vom Komma. Leider kann man diese Zahlen nicht für weitere Berechnungen verwenden. Ich...
13.10.2008 08:44:00
Thread-ID: 1015926
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Artikelnummern aus Text filtern
BuStü

Hallo Leute ich habe mal wie ein Problem.
Gibt es eine Formel mit der ich die Artikelnummern aus Textzellen herausfiltern kann. Meine Tabelle ist über
1000 Zeilen lang. Der Text stehen in Spalte C und ich möchte gern nur die Art-Nr. in Spalte B filtern.
Beispiel:  BC2Art.-Nr.<...
04.12.2008 14:15:10
Thread-ID: 1030172
3 Beiträge
Zahl aus String
Captain

Hi,
wie kann ich lediglich die Zahl aus meinen Strings bekommen?
Beispiel: ps_4; ps_12; ps_332
hatte es mit Mid(ctl.name,3) versucht, aber da fehlt mir die Länge...hm...
Jack
10.12.2008 14:19:00
Thread-ID: 1031692
4 Beiträge
Text aus Text extrahieren
Eddie

Guten morgen an ALLE :-)
Ich will gerne aus folgenden Text einen bestimmten text extrahieren und Ihn dann in einer anderen Zelle anders zusammenbauen
In A1 steht: DasIstEin01Test12345Name
In B1 soll stehen Huhu01Test123 Start
Der Text ändert sich immer, aber der Anfang DasIst...
07.01.2009 08:42:07
Thread-ID: 1037441
3 Beiträge
Anzeige
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Einzelne Zahlen aus Zeile auslesen
daniel

Hallo Forum.
ich hab eine Spalte mit Werten untereinander
A1=10
A2=12
A3=14
A4=112
A5=101
usw.
jetzt bräuchte ich eine Formel die mir immer die Zahlen ausgibt, die VOR der letzten Zahl stehen.
Ergebnis soll sein.
B1=1
B2=1
B3=1
A4=11
A5=10...
21.01.2009 09:13:23
Thread-ID: 1042046
2 Beiträge
Anzeige
Zahl aus einer Liste auslesen (WVERWEIS)
Helmi

Hallo zusammen
Ich habe ein Problem, sonst würde ich keine Frage stellen :-)
Ich habe eine Liste mit Zahlen die in Spalte B stehen.
Ich möchte nun abhängig davon welche Zahl in A1 steht eine Zahl aus der Liste in B auslesen.
Bsp:
A1 = 5
Ich möchte den fünften Eintrag, re...
21.01.2009 12:13:48
Thread-ID: 1042124
5 Beiträge
Anzeige
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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