Hallo
ich hab seit vielen Jahren folgenden, funktionierenden Code in Office 2013.
Mit dem Code kopiere, verschiebe und benenne ich eine Combobox.
ActiveSheet.Shapes("Güte").Select
Selection.Copy
Range(varName1 & "_Güte").Select
ActiveCell.Offset(0, 1).Range("A1:A1").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -0.5
Selection.ShapeRange.IncrementTop 0.5
With ActiveSheet
.OLEObjects(.OLEObjects.Count).Name = varName2
.OLEObjects(.OLEObjects.Count).LinkedCell = varName1 & "_Index_Güte"
End With
nach dem ich jetzt mit einem Rechner auf Office 365 umgestiegen bin, kommt bei "Selection.ShapeRange" ein "Laufzeitfehler 438" Objekt unterstützt diese Eigenschafte oder Methode nicht"
Wenn ich die "Selection.ShapeRange.IncrementLeft -0.5" und "Selection.ShapeRange.IncrementTop 0.5" lösche, funktioniertes, verschiebt aber die Comobox nicht wie gewünscht.
Wie muß ich den Code ändern damit dies in O365 und Office 2013 funktioniert?
Gruß Hans