Zifferteil extrahieren

[Joerg_de]

Hallo,

ich möchte den numerischen Teil eines Ausdrucks (steht teilweise am Anfang, teilweise aber auch mittendrin) extrahieren und (noch besser) nach Möglichkeit auch noch zusätzlich den Punkt als Trenner für die Dezimalstellen durch ein Komma ersetzen.

Also z.B. aus 2340.1 kJ => 2340.1 oder noch besser 2340,1 etc., s. anliegende 
  Zifferteil extrahieren.xls (Größe: 13,5 KB / Downloads: 8) *. Arbeite noch mit dem guten alten Office 2002.

Jemand eine Idee?

Vielen Dank und

schönen Gruß
Jörg
* Bearbeiten, Ersetzen ging für den Austausch von Punkt durch Komma natürlich auch, ist aber zu aufwendig, da ich ähnliche Daten immer wieder neu mal runterladen muss

[Klaus-Dieter]

Hallo,

eine Teillösung kann ich dir schon mal anbieten:

Daten

	A	B	C	D	E	F
2	IST	SOLL 1	SOLL 2
3	2340.1 kJ	2340.1	2340,1	2340.1	2340,1	1
4	556.5 kcal	556.5	556,5	556.5	556,5
5	22.9 kg	22.9	22,9	22.9	22,9
6	5.1 g	5.1	5,1	5.1	5,1

Formeln der Tabelle

Zelle Formel D3 =LINKS(A3;(FINDEN(" ";A3))) E3 =(WECHSELN(D3;".";","))*1 D4 =LINKS(A4;(FINDEN(" ";A4))) E4 =(WECHSELN(D4;".";","))*1 D5 =LINKS(A5;(FINDEN(" ";A5))) E5 =(WECHSELN(D5;".";","))*1 D6 =LINKS(A6;(FINDEN(" ";A6))) E6 =(WECHSELN(D6;".";","))*1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Das Ergebnis in Spalte E erreichst du durch kopieren der 1 in Zelle F3. Dann markierst du die Inhalte in Spalte E und gehst auf Inhalte einfügen, Multiplizieren.

Ähnlich kannst du mit den anderen Inhalten auch verfahren, da musst du nur zusätzlich die Positionen für erste und das letzte Leerzeichen ermitteln und mit der Funktion Teil arbeiten.

[BoskoBiati]

Hi,

für Deine ururalt-Version kann ich Dir nur das empfehlen:

https://www.herber.de/excelformeln/src/e...la_list.pl

[juvee]

Hi,

mit einer  UDF

PHP-Code:

Public Function RegExExtract(ByVal SourceText As String, _
                    Optional ByVal SearchPattern As String = "\d*\.?\d*", _
                    Optional ByVal bIgnoreCase As Boolean = True, _
                    Optional ByVal bGlobal As Boolean = True, _
                    Optional ByVal bMultiLine As Boolean = True) As String
Dim oRegEx As Object, submatch As Object, i As Long
Set oRegEx = CreateObject("Vbscript.Regexp")
  With oRegEx
    .Pattern = SearchPattern
    .ignorecase = bIgnoreCase
    .Global = bGlobal
    .MultiLine = bMultiLine
   
    Set submatch = .Execute(SourceText)
    For i = 0 To submatch.Count - 1
    If Len(submatch(i)) Then
      RegExExtract = Replace(submatch(i), ".", ",")
Exit For
    End If
    Next
  End With
End Function


den Code in ein StandardModul ( ALT +F11, ggfs. ALT+E+M und den Code in das sich öffnende Modulfenster kopieren)

In die entsprechende Zelle für das Ergebnis: 

=RegExExtract(A3)

VG Juvee

[BoskoBiati]

Hi,

mit einer Formel:

Code:

=WENN(A3="";"";WENN((CODE(A3)<58)*(CODE(A3)>48);--LINKS(WECHSELN(A3;".";",");SUCHEN(" ";A3)-1);--TEIL(WECHSELN(A3;".";",");SUCHEN(" ";A3)+1;SUCHEN("#";WECHSELN(A3;" ";"#";2))-SUCHEN(" ";A3))))

[juvee]

@Edgar,


coole Formel, in Zelle ohne Zahlen --> #WERT!  -->=wennfehler(...;"")



VG Juvee

[BoskoBiati]

Hi Juvee,


WENNFEHLER in 2002????

[juvee]

@ Edgar

shame on me!! So weit reichte mein Erinnerungsvermögen nicht mehr

VG Juvee

[Joerg_de]

Hallo und

vielen Dank an alle, insb. für die Formellösungen.

Was Juvee meinte ist wohl
=WENN(ISTFEHLER(Deine_Formel);"";Deine_Formel)
und das ergibt dann das ellenlange
=WENN(ISTFEHLER(WENN(A3="";"";WENN((CODE(A3)<58)*(CODE(A3)>48);--LINKS(WECHSELN(A3;".";",");SUCHEN(" ";A3)-1);--TEIL(WECHSELN(A3;".";",");SUCHEN(" ";A3)+1;SUCHEN("#";WECHSELN(A3;" ";"#";2))-SUCHEN(" ";A3)))));"";WENN(A3="";"";WENN((CODE(A3)<58)*(CODE(A3)>48);--LINKS(WECHSELN(A3;".";",");SUCHEN(" ";A3)-1);--TEIL(WECHSELN(A3;".";",");SUCHEN(" ";A3)+1;SUCHEN("#";WECHSELN(A3;" ";"#";2))-SUCHEN(" ";A3)))))
womit Excel aber kein Problem hat, was beweist, dass auch ziemlich alte Besen manchmal noch ganz gut kehren..

Schönen Gruß
Jörg

[BoskoBiati]

Hallo,

durch den Teil WENN(A3="";"" habe ich das WENNFEHLER ersetzt. Es braucht also kein ISTFEHLER!