Zoeken en aanpassen

[Abyss]

Ik wil in een kolom G,H K en L zoeken naar cellen/records die niet beginnen met “(“ en eindigen met een “)“
Als dit zo is moet aan beide zijde van het woord Haakjes komen

Dus “ Tekst “ zou (Tekst) moeten worden. Tekst wat al voor zien is van haakjes hoeft natuurlijk niet. Wel kan het voorkomen dat ergens in de tekst ook Haakjes staan. Deze moeten dan genegeerd worden.
Ik heb er al een tijdje op zitten knutselen. Maar krijg het niet goed voor elkaar
Kan iemand mij een handje helpen?.

Alvast bedankt voor de hulp:thumb:

Abyss

 

[RoCompy87]

Heb je iets aan deze formule?

=ALS(EN(LINKS(G1;1)<>"(";RECHTS(G1;1)<>")");"("&G1&")";G1)

 

[Abyss]

DezeBedankt voor je snelle reactie

Jou code zet volgens mij ergens anders de haakjes neer
Ik wil graag dat hij de kolommen G,H K en L af zoekt en daar waar geen haakjes om de tekst staan, er haakjes omheen zet

Misschien was ik niet duidelijke genoeg

Ik heb zelf ooit deze macro code gemaakt

ActiveCell.FormulaR1C1 = "(" + ActiveCell.FormulaR1C1 + ")"
    ActiveCell.Offset(1, 0).Range("A1").Select

Deze moet je per cel uitvoeren, en plaatst overal haakjes. Dat wil ik niet
Ik wil alleen haakjes waar ze nog niet zijn. en alleen in de kolommen die ik al eerder aangaf.

Mischien zijn er nog meer oplossingen?.

Abyss

 

[RoCompy87]

Is dit wat je zoekt?

Sub haakjes()
Dim c As Range
For Each c In ActiveSheet.Columns("G:H").Cells
    If Len(c.Value) > 0 And Left(c.Value, 1) <> "(" And Right(c.Value, 1) <> ")" Then c.Value = "(" & c.Value & ")"
Next c
End Sub

 

[Abyss]

:thumb::thumb: Ja dit is hem, precies wat ok zocht :thumb: Super bedankt :d


Abyss