Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

in klammern Zahlen suchen

Forumthread: in klammern Zahlen suchen

in klammern Zahlen suchen
19.11.2006 17:07:30
Dirk
Hallo
hat einer einen Tip, wie ich diese Formel vereinfachen könnte?
z.b. soll aus Zelle A1:
hhh (7337) dd
B1:
7337
werden
dabei soll es egal sein, wo sich die Zahl in der Klammer befindet.
Dirk
=TEIL(WECHSELN(WECHSELN(A1;"(";"*(*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"(";"")));")";"*)*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;")";"")));FINDEN("*(*";WECHSELN(WECHSELN(A1;"(";"*(*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"(";"")));")";"*)*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;")";""))))+3;FINDEN("*)*";WECHSELN(WECHSELN(A1;"(";"*(*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"(";"")));")";"*)*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;")";""))))-FINDEN("*(*";WECHSELN(WECHSELN(A1;"(";"*(*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"(";"")));")";"*)*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;")";""))))-3)*1
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in klammern Zahlen suchen
19.11.2006 17:16:44
EtoPHG
Hallo Dirk,
Vielleicht so:
=VALUE(MID(A1;FIND("(";A1)+1;FIND(")";A1)-FIND("(";A1)-1))
=WERT(TEIL(A1;FINDEN("(";A1)+1;FINDEN(")";A1)-FIND)"(";A1)-1))
Gruss Hansueli
AW: in klammern Zahlen suchen
19.11.2006 17:17:47
Reinhard
Hi Dirk,
=TEIL(A1;FINDEN("(";A1)+1;FINDEN(")";A1)-FINDEN("(";A1)-1)
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Zahlen finden
19.11.2006 18:56:09
Dirk
danke, das hat mir weiter geholfen...
zusätzlich könnten sich auch noch leerzeichen in der Klammer befinden, bzw zwischen den Zahlen in der Klammer.
daher noch diese Funktion
=WerteAus(B2)

Function WerteAus(Ausdruck)
Dim sVar As String, i As Integer
For i = 1 To Len(Ausdruck.Value)
Select Case Mid(Ausdruck, i, 1)
Case Application.International(xlDecimalSeparator)
sVar = sVar + "."
Case Application.International(xlThousandsSeparator)
sVar = sVar + ","
Case Else
If InStr(1, "^0123456789,()+*-/", Mid(Ausdruck, i, 1)) Then
sVar = sVar + Mid(Ausdruck, i, 1)
End If
End Select
Next
WerteAus = Evaluate(sVar)
End Function

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