Auf einem Tabellenblatt ( siehe https://www.herber.de/bbs/user/41028.xls ) sind mehrere Shapes. Mit Klick auf jedes Shape soll jeweils genau diesem eine andere Farbe zugewiesen werden. Dazu verwende ich ein Makro "Sub Ampelfarben()". Für die Auswahl des jeweiligen Shapes nutze ich "ActiveSheet.Shapes( Application.Caller )". Funktioniert einwandfrei, solange das Shape einen eindeutigen Namen hat.
Aus anderen Gründen müssen die Shapes allerdings vom Benutzer benennbar und duplizierbar sein. Problem: Application.Caller ist dadurch für die Shapes identisch, und Excel färbt immer das erste der benannten Shapes um, und nicht das jeweils angeklickte.
In PowerPoint wäre die Lösung ein schlichtes Ergänzen der Sub auf "Sub Ampelfarben(sh as Shape)", doch da macht Excel leider, wie mir scheint, nicht mit ... - grmpf.
Ich freue mich über jede Unterstützung, ggf. auch Vorschläge für work-arounds.