Dim Drehfeld As Shape
Drehfeld.LinkedCell = Drehfeld.TopLeftCell.Offset(0, -1).AddressLocal
, doch das ergab Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht.
Erfolgreich war ich dann mit
Dim Drehfeld As Shape
Drehfeld.Select
Selection.LinkedCell = Drehfeld.TopLeftCell.Offset(0, -1).AddressLocal
, aber das ist so hääääässlich! Wie geht's besser?
Vielen Dank sagt Wolli