Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige