mit Shapes aller Art habe ich oft meine Last, jetzt schon wieder mit einer Bildlaufleiste aus Formular in der Tabelle.
Es kommt in der For-Schleife immer gleich Fehler 438 (Objekt unterstützt...), egal ob ich die Hochkommas setze oder nicht :-(
Mit S.TopLeftCell.Address gibt es keine Probleme das klappt wie geplant.
Option Explicit
Sub Zelle()
Dim S 'As Shape
For Each S In ActiveSheet.Shapes
'S.Select
'MsgBox Selection.LinkedCell
MsgBox S.LinkedCell
MsgBox S.TopLeftCell.Address
S.LinkedCell = S.TopLeftCell.Address
Next S
End Sub
Danke ^ Gruß
Reinhard