Textinhalt aus mehreren Klammern auslesen, Formatierung beibehalten

[Franzi 79]

Hallo zusammen,
ich suche nach einer Möglichkeit den Textinhalt aus mehreren Klammern (einer Zeile) zu extrahieren und den Rest außer Kommas zu löschen.

Z.B.
Rot (red) Blatt (leaf), Baum (tree), alt (old)

zu:
red leaf, tree, old

Es ist nur ein Beispiel in der Praxis kann eine Zeile mehr als 3 gesuchte Elemente/Klammerinhalte beinhalten.

Ist das möglich?
Mit den mir bekannten Formeln kann ich immer nur den Inhalt der ersten Klammer auslesen, vom Übernehmen der Kommas ganz zu schweigen.

[BoskoBiati]

Hi,

ist das korrekt:

einer Zeile

oder meinst Du eine Zelle?

[Franzi 79]

Hallo BoskoBiati,

entschuldige bitte, ich hatte mich verschrieben.
Ich meinte eine Zelle.

Anbei ein kurzes Beispiel.

Liebe Grüße
Franzi

[Fennek]

Hallo,

ohne Kenntnis der Datei:

Code:

Sub F_en()
Dim RegEx As Object: Set RegEx = CreateObject("VBScript.RegExp")
Dim RR, r

RegEx.Pattern = "\((\w+)\)"
RegEx.Global = True

'in A1: Rot (red) Blatt (leaf), Baum (tree), alt (old)

Set RR = RegEx.Execute(Cells(1, 1))
For r = 0 To RR.Count - 1
    Debug.Print r, RR(r).submatches(0)
Next r

End Sub

mfg

[HKindler]

Hi,

bei aktuellem Excel:
=TEXTVERKETTEN(" ";;TEXTNACH(TEXTTEILEN(WECHSELN(A2;"),";",)");")");"(";;;;""))

Bei älterem Excel verwendet man das CSE-Plugin von FlotterFeger, dann sollte die Formel ebenfalls funktionieren.

[Franzi 79]

Hi,

vielen Dank ihr Lieben. Ihr seid klasse!

Eine Frage hätte ich noch:
Wie würde es denn umgekehrt funktionieren, also nur den Inhalt außerhalb der Klammern plus die Kommas auszugeben?
Geht dies auch?

Viele Grüße
Franzi

[HKindler]

Hi,

das ist einfacher, weil man das Komma nicht in die Klammer WECHSELN() muss:

=TEXTVERKETTEN(" ";;TEXTVOR(TEXTTEILEN(A2;")");" (";;;;""))

[Franzi 79]

Hi,

das ging fix, danke dir!

Nur eins noch, es sind dann teilweise noch zu viele Leerstellen enthalten (z.b. zwei Leerstellen zwischen den Wörtern und eine Leerstelle nach dem Komma, die eine Leerstelle nach dem Komma ist ja korrekt. (s. Beispieldatei in grün markiert).
Kann man die Formel so gestalten, dass diese auch im gleichen Schritt mit verbessert werden (ohne die Leerstelle nach dem Komma zu entfernen)?

[HKindler]

Sorry, habe ich übersehen. Die muss man dann noch Wechseln() und Glätten():

=GLÄTTEN(WECHSELN(TEXTVERKETTEN(" ";;TEXTVOR(TEXTTEILEN(A2;")");" (";;;;""));" ,";","))

Statt Glätten könnte man auch nochmals Wechseln und zwar zwei Leerzeichen gegen eines.

[Franzi 79]

Hi,
kein Problem danke dir!

Gibt es noch eine Möglichkeit die erste Formel (Klammerinhalt plus Kommas ausgeben) "robuster zu machen"?
Also wenn mal Leerstellen bei den Kommas oder beim Text auftauchen (s. Beispiel).

Viele Grüße
Franzi