Frage : Excel VBA: Isolattext in Klammern

Als Teil eines VBA Makro schreibe ich in Excel 2007, ich muss Textwerte aufspalten, die Klammern enthalten. Beginnend mit dem Text in der Zelle, die ich CurrentText nenne, möchte ich zwei weitere Schnüre erzeugen: NoParens und InParens. NoParens sollte der Text minus jeder möglicher Teilkette sein, die in Klammern war (und eingestellt auf Abstand); InParens sollte der Text sein, der im parentheses.

Examples konnte nützlich sein enthalten. Uns CurrentText sagen lassen = „etwas Beispieltext (SST)“. In diesem Fall sollte NoParens „etwas Beispieltext“ sein, und InParens sollte „SST“ sein.

Or, wenn CurrentText = „mehr Beispieltext (MST) hier“, dann NoParens „mehr Beispieltext hier“ ist-, und InParens sollten „MST“ sein.

I kann dieses nicht durchaus herausfinden, und sein sehr dankbar, wenn jedermann eine Hand verleihen könnte. Danke!

Antwort : Excel VBA: Isolattext in Klammern

dieses versuchen
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Sub das getSubString ()

InParens als Schnur verdunkeln, NoParens als Schnur, Gesamtmenge als Schnur
leftParens als ganze Zahl verdunkeln, rightParens als ganze Zahl

Gesamtmenge = „etwas Beispieltext (SST)“

leftParens = InStr (Gesamtmenge, „(")
rightParens = InStr (Gesamtmenge, ")“)
Unterschied = rightParens - leftParens - 1

InParens = Mid$ (total, (leftParens + 1), Unterschied)
NoParens = ersetzen (Gesamtmenge, „(“ u. InParens u. ")“, "")

MsgBox (InParens u. vbCrLf u. vbCrLf u. NoParens)

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us