Hallo Terry,
also bei mir funktioniert dein Code. Bist du sicher dass das ActiveSheet auch wirklich aktiv ist? Ich meine der von dir angegebene Fehler erscheint bei mir nur dann, wenn man den Code in einem Tabellenmodul hat (z.B. Tabelle1) aber das aktive Tabellenblatt (z.B. Tabelle2) ist. Grund Range bezieht sich in dem Fall immer auf das Tabellenmodul in dem der Code steht, während sich die Shapes auf das aktiveSheet beziehen.
Der Code gehört also in ein Standardmodul (Modul1) damit er auf jedes Blatt anwendbar ist.
Außerdem ist S unzureichend definiert. es muss heißen Dim S as Shape. So wie du es aktuell hast ist S as Variant definiert. Da kannst du die Deklaration auch ganz sein lassen. Aber das nur am Rande. Sollte keinen Einfluss auf die Funktionalität haben.
Gruß Mr. K.
|