Zahl aus Text extrahieren

Domi · 2018-12-17T18:01:01+00:00

Hallo zusammen, ich möchte die erste Zahl aus einem längeren String extrahieren. Der String enthält manchmal mehrere Zahlen und die Zahlen sind nicht eindeutig (durch ein bestimmtes Zeichen) von den anderen Zeichen abgrenzbar. z.B.: asdad123)sdds2112xsd()1223121 ==> 123 soll ausgelesen werden EuS 121.12 (SAkjf), F19 3434, sdjsk ==> 121.12 soll ausgelesen werden EUNSOE 532.34, fsdfsj3412 fd3 ==> 532.34 soll ausgelesen werden Ich habe zu dem Thema schon etwas im Internet gefunden, allerdings gibt diese Funktion nur die erste Zahl ohne Nachkommastellen. Ich bräuchte sie aber mit Nachkommastellen. Function ZahlAusText(Zelle As Range) As Variant Dim x As String Dim i As Integer Dim Pos1 As Integer, Pos2 As Integer Dim Rc As Variant ZahlAusText = "" x = Zelle.Value Do For i = 1 To Len(x) If IsNumeric(Mid(x, i, 1)) Then Pos1 = i Pos2 = i Exit For End If Next i If Pos1 = 0 Then Rc = "" Exit Do End If If Pos1 http://www.excel-ist-sexy.de/zahl-aus-text-extrahieren/

…im Herber-Archiv, die deine ZielVorgaben erfüllt, Domi;
eine UDF ist ein VBA-basiertes Pgm, das idR sowohl in ZellFmln als auch in SubProzeduren eingesetzt wdn kann. Du wirst kaum mal erleben, dass einer der eifrigen AWer auf anderes als seine eigenen Kreationen verweist, weil er sich die Standorte der anderen idR nicht merkt, wenn er eine eigene hat. Dagg verweisen die FmlFreaks eher mal auf Standorte für FmlLösungen, die aber im Falle von excelformeln.de gänzlich UDF-frei sind. Die meisten VBA-Kundigen ziehen es vor, sich per EigenPgmmierg an einer Lösung zu versuchen, egal, ob bereits eine solche Lösung existiert oder eben nicht.
Wenn du also nicht im Archiv recherchierst, wirst du idR eine erstbeste Lösung erhalten, die nicht unbedingt die beste sein muss (aber ggf sein kann). Wer eine optimale Lösung will, muss bekanntlich vgln; das ist nicht nur bei Einkauf und Häuserbau so… ;-]
Deine Fml könnte dann so lauten: =INDEX(VSplit(MaskOn(A1;"zw");;1);1)
Die UDF VSplit könnte dabei ggf durch eine neue XlFkt auf der Basis von Text-in-Spalten ersetzt wdn (sollte in deinem Abo enthalten sein) oder du musst direkt die entsprd VBA-Befehle benutzen, wenn zuvor die UDF MaskOn angewendet wurde.
Übrigens, falls bei dir Pkt als DezimalTrenner eingestellt ist, entstehen so gleich echte Zahlen (keine ZahlTexte).
Gruß, Luc :-?

…Ralf,
der in diesem Thread ein Lichtblick ist. Ich hatte mir mal Deine/n WebSite/Blog angesehen und weiß nun natürlich, dass Dein Schwerpkt auf Bausteinen und Lösungen für Office-Automatisierung liegt (sehr fleißig!). Das allermeiste davon würde bei meiner InteressenLage unter mach ich, wenn ich's brauche (falls ich's auch kann!) laufen, denn ich hatte zwar auch mal mit SubProzedur-Pgmmierung angefangen, bin aber, vor ca 15-16 Jahren beginnend, zunehmend bei UDF-Pgmmierung gelandet, weil das die Nahtstelle zwischen VBA- und Fml-Welt ist und hier mitunter Dinge zu entdecken sind, die eines pgm-technischen Verständnisses bedürfen, um annähernd oder gar in Gänze durchschaubar zu wdn. Gerade auch die Unterschiede bei ZellFml- und Prozedur-Anwendung können sehr interessant wdn und dazu beitragen, zu verstehen, wie Xls FmlText-Interpretation fktioniert. Interessant wären auch Alternativen zu der in Xl gewählten Methode. Außerdem ist immer wieder faszinierend, dass man so auch auf AlleinStellungsmerkmale von Xl ggüber anderer Calc-Software stoßen kann.
Die Verwendung von RegEx-Patterns ist natürlich eleganter (meine UDF ist ja auch schon ca 15 Jahre alt und in letzter, unpublizierter Version - vor ca 9 Jahren - nur noch auf ZellAdressen und vorgebbare ErsatzZeichen erweitert worden), aber erfordert uU auch detaillierte Kenntnisse vom Nutzer, falls die Patterns individuell vorgebbar sein sollen, weshalb ich mich noch nicht für so etwas entschieden habe. Das Maximum des vorgebbar Zumutbaren schien mir das Pattern zum Like-Operator in VBA zu sein (UDF VLike).
Ja, Spaß muss sein, und „Jagdtrieb“ interpretiere ich mal als Wissenwollen (Jagdhunde - keinen Schlittenhund wie Du ;-) - hatte mein Großvater als er einst in Preußisch-Brandenburgischen Wäldern aktiv war, sehr lange her) und geistessportlichen Ehrgeiz. Besonders interessant wird's bei Problemen, die normalerweise nicht (oder zumindest nicht allein) per UDF zu lösen sind. Deshalb findet auch jede halbwegs universelle UDF, die also möglichst weitgehend argumentiert wdn kann und wie die meisten Xl-Fktt auch Datenfelder aus Ausdrücken als Argument zulässt und damit auch mit anderen Xl-Fktt und UDFs zusammenarbeiten kann, meine Zustimmung. Allerdings arbeite ich zZ an einer Basis-UDF, die einige solcher „Mängel“ ausgleichen kann (auch bei vb- und WorksheetFunctions und zT in Analogie zum FmlText-Interpreter) und damit deren Anwendungsbreite vergrößert (nur das PrimärDeklarationsProblem As Range dürfte sich derartigen Versuchen hartnäckig widersetzen!). Fürchte nur, dass ich sie doch schon etwas überladen habe…
Da ich instinktiv befürchtete, dass meine AW länger ausfallen könnte und ich in letzter Zeit von anderen Problemen gefordert wurde, hat es mit meiner AW etwas gedauert, was ich zu entschuldigen bitte… ;-]
Deine guten Wünsche habe ich im nächsten Jahr besonders nötig, weshalb ich sie Dir gern ebenso zuordne - FroWeihn und alles Gute im Neuen, aber zuvor noch ein schönes Adv4-WE (auch, falls es bei Dir ebenfalls regnen sollte), Luc :-?

Forumthread: Zahl aus Text extrahieren

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial