Excel VBA - Index eines Shapes ermitteln

[Mr. Tommes]

Hallo,

ich habe folgendes Problem. Ich habe eine Excel-Tabelle. In diese Tabelle habe ich einige Zellen in denen Shapes sind. Diese beinhalten Bilder, dies sei aber egal. Mit Hilfe von VBA will ich jetzt auf eine Eingabe reagieren. Wie kann ich nun den Index des Shapes ermitteln der in der Zeile ist, in der ich die Eingabe mache? Quasi 5 Zeilen. Gebe ich dann in der 4. Zeile z.B. in die erste Zelle was ein, so will ich mit Hilfe von VBA den Index des Shapes auslesen den dieser hat. Der Shape befindet sich in der 2. Zelle in dieser Zeile. Ich würde nämlich je nach Eingabe dann gerne diesen Shape über "ActiveSheet.Shapes(Index).Delete" löschen. Leider fehlt mir dazu halt der richtige Index. Hoffentlich kennt sich da jemand aus.

[Der Kleine]

Tja, der Index wird derjenige seien, in wecher Reihenfolge diese angelegt sind.

Laß dir diese doch einzelnd und schön langsam greifen und irgendetwas (sichtbares) verändern.

Vielleicht kannst du den Shapes auch Namen geben, die normalerweise über die Steuerelementeeigenschaften (Shapes1) einstellbar sind. Dann gehst du alle Shapes durch und greifst dir denjenigen, mit dem richtigen Namen.

PS. Habe aber nix dazu probiert.

[Mr. Tommes]

Hi,

hab den Shapes jetzt Namen gegeben beim Anlegen. Und zwar die Adresse der Zelle in der sie sich befinden. Jetzt kann ich jede Zelle prüfen, ob dort bereits ein Shape ist. Brauche nur die Adresse der Zelle mit den Namen der Shapes vergleichen. Gibt es einen Treffer, so existiert in der Zelle schon ein Shape. Klappt wunderbar.