Hallo,
letzte Woche hab ich von Office 2013 auf O365 umgestellt.
leider funktioniert jetzt folgender Makroausschnitt nicht mehr.
Ich konnte bisher eine Combobox Namens "Güte" kopieren und an anderer Stelle wieder einfügen.
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
Bei "Selection.ShapeRange......." kommt fehlermeldung.
Wenn ich diese ausblende, funktionierts, aber die kopierte Combobox wir nicht an der richtigen Stelle eingefügen.
Wie lautet der Ersatzbefehl in O365? oder was kann ich machen?
Gruß Hans