Afbreken van een string bij het ( teken

[Rene123]

Ik vroeg mij af of het mogelijk is om een string af te breken zodra er een ( in voorkomt.
Als voorbeeld, ik heb een veld dat gevul is met CQG (Site via internet), commodity pricing. Ik wil echter dat het wordt afgebroken bij CQG en dat de rest wegvalt. Het probleem is echter dat de positie van het ( per regel kan veranderen.

Heeft iemand voor mij de oplossing?

Alvast bedankt!

 

[leofact]

Dat zou zo kunnen:

Sub test()
Dim sTest As String
Dim sResult As String
Dim iLengte As Integer
      sTest = "12345CQGABC"
          iLengte = Len(sTest)
      sResult = Strings.Left(sTest, iLengte - InStr(1, sTest, "CQG"))
   MsgBox sResult
End Sub

Wanneer je CQG erbij wil moet je drie bij op tellen bij iLengte.
mvg leo

 

[Wigi]

Als in A1 dit staat:

CQG (Site via internet), commodity pricing

run deze "macro" dan eens:

Sub test()
   MsgBox Split(Range("A1"), "(")(0)
End Sub

Wigi

 

[leofact]

run deze "macro" dan eens:

Dit is een heel mooie en korte oplossing.
En ik heb behoorlijk over de vraag heen zitten lezen, stom
Kan nog wel door "CQG" te vervangen door "(", maar de betere oplossing staat er al.

 

[Wigi]

En ik heb behoorlijk over de vraag heen zitten lezen, stom

Overkomt ons allemaal geregeld wel eens, no worries

 

[leofact]

Overkomt ons allemaal geregeld wel eens, no worries

thanks

 

[Rene123]

Als in A1 dit staat:

CQG (Site via internet), commodity pricing

run deze "macro" dan eens:

Sub test()
   MsgBox Split(Range("A1"), "(")(0)
End Sub

Wigi

Waarschijnlijk doe ik iets niet helemaal goed maar ik krijg de melding in mijn message box "aApplication". Wat ik eigenlijk bedoelde is dat ik een bestand heb wat er als volgt uitziet:

Applicationname

APR (AGC sat proprocessor)
APX Frontlight - Spotlight
Assyst
Audio Video equipem /LED Tikker Boards
Belpex
Bloomberg (SBA)
Business continuity
Business MSExcel Solution
CAS (Contract adm.syst.) (SBA) (Oracle)

De range hiervoor is A1 t/m A144. Nu wil ik via een macro proberen om alle karakters na het ( te verwijderen. Zoals je kan zien veranderd de applicatienaam per regel en is de positie van het ( teken ook steeds anders.

Hebben jullie ideeen over wat ik fout doe?

Alvast bedankt

 

[Wigi]

Zonder macro kan het ook

Zet dit in B1:

=ALS(ISFOUT(VIND.SPEC("(";A1));A1;SPATIES.WISSEN(LINKS(A1;VIND.SPEC("(";A1)-1)))

Kopieer deze cel naar B2:B144.

Wigi

 

[Rene123]

Zonder macro kan het ook

Zet dit in B1:

=ALS(ISFOUT(VIND.SPEC("(";A1));A1;SPATIES.WISSEN(LINKS(A1;VIND.SPEC("(";A1)-1)))

Kopieer deze cel naar B2:B144.

Wigi

Ik weet niet hoe je eropgekomen bent, maar het werkt!

Thanks!

 

[Wigi]

Ik weet niet hoe je eropgekomen bent...

Nadenken...