Controle of cel een shape autovorm bevat werkt niet bij selectie van meerdere cellen

[glda19]

Hi
Is een stukje van een groter programma.
Wat kan de gebruiker doen in het andere programma meerder 3hoeken naast elkaar tekenen.
Maar selecteert hij terug een cel waarin al een symbool staat dan kan hij er een symbool boven leggen niet één maar meerdere
Dus op internet gezocht en verschillende codes gevonden maar deze werken niet met een selectie van meerdere cellen naast elkaar. selecteer ik bv bereik c13 tot f13 dan werken alle code niet behalve de onderse raar?
Bij elke code staat er een for each die doorloopt toch de selectie niet?

Enkel Function rngSymbolen(r As Range) werkt op een selectie van meerdere cellen

wie heeft een verklaring wat er mis gaat.

Mvg Glenn

 

[edmoor]

Sorry hoor maar ik kan er geen touw vastknopen aan wat je allemaal schrijft.
Daarnaast is een Shape geen inhoud van een cel maar een los object op het werkblad.

 

[glda19]

Test het programma
Dat het enkel werkt op 1cel niet op een selectie van bv b1tot d1 waarin er een 3hoek staat. Dan zeggen alle functies dat er geen zijn 3hoeken behalve die met intersect zegt het wel raar

 

[snb]

@Edm

Je hebt een PM.