add prefix and suffix in cell for complete range

[mause01]

Heren,

Ik heb de volgende code geschreven waar ik graag de inhoud van de cell met als prefix een "{" en als suffix een "}" wil hebben.
Dit lukt maar ik loop tegen een probleem aan.
de eerste cell in de range gaat goed {Value}, maar wanneer ik de volgende cell iets invul dan heeft deze netjes {value}
maar de eerst krijgt dan 2x de prefix en suffix enz. {{Value}}

dit worden er telkens meer wanneer je meer cellen invult.

Highlight met enkele {} is gewenst.

Dim acell as range
Set rng = Range("U7:U" & lMax)
    If Not Application.Intersect(Target, rng) Is Nothing Then
              For Each aCell In rng
                   If aCell.Value <> "" Then
                        aCell = "{" & aCell.Value & "}"
                     End If
                 Next
            End If

 

[popipipo]

Heb je al overwogen om het niet met vba code te doen maar gewoon met het celformaat: {0}

 

[gast0660]

Uw code is niet volledig maar zo gok ik op

If Not acell.Value Like "{*}" And acell.Value <> "" Then

 

[mause01]

Beste gast0660,

Dat was het inderdaad.
ik controleerde wel op aCell.Value <> "" maar niet op Not aCell.Value Like "{*}"

Perfect bedankt

 

[gast0660]

Mooi zo:thumb:
Suc6