tekst van tekstvakken / ingevoegde vormne beinvloeden met Macro

[RobertHak]

Kan iemand mij vertellen of het volgende mogelijk is:

Ik heb in een bestand diverse vormen ingevoegd + diverse tekstvakken
In deze vormen / tekstvakken staan numerieke waarde.

Deze moeten wel eens met 1 verhoogd of verlaagd worden.

Ik zoek een oplossing in VBA, echter kom ik er niet uit om de tekst in de vorm / tekstvak te bewerken.
Weet iemand hier toch een code voor?

Alvast bedankt

 

[Roncancio]

Simpel voorbeeld:

With ActiveSheet.Shapes(1).TextFrame.Characters
    .Text = .Text + 1
End With

De waarde van de 1e vorm wordt met 1 verhoogd.

Met vriendelijke groet,


Roncancio

 

[Efsix]

Je kunt zo'n textvak toch ook linken aan een celinhoud. Dan geeft het weer wat er in die cel berekend word?
gewoon zo'n vorm aanklikken, en dan in de formulebalk invullen bijvoorbeeld =A1

 

[RobertHak]

Beide opties werken goed, bedankt voor de oplossing