Hallo zusammen!

Ich habe aktuell folgendes Problem in einer relativ einfachen Arbeitsmappe:

Wir sind bei uns in der Firma vor kurzem von Office 2016 auf 365 Enterprise umgestiegen (mit Win10). Seit dem funktioniert sporadisch das kopieren von unterschiedlichsten Shapes mittels VBA nicht mehr.

Die Arbeitsmappe ist ein Ablaufeditor mit zwei Tabellen. In Tabelle1 wird mittels eines Editors ein Ablauf erstellt. Der Editor ist eine Userform mit CommandButtons darin um unterschiedliche Shapes von Tabelle 2 and die aktuelle Position in Tabelle zwei zu kopieren.

Der Aufbau ist daher relativ einfach. Es gibt einen Button der die Userform lädt, und in der Userform unterschiedliche Buttons welche jeweils das richtige Shape aus dem anderen Tabellenblatt laden.

Der Code für das Shape kopieren ist ebenfalls bis auf die Benennung immer gleich:

Private Sub CommandButton26_Click()
Sheets("Funktionen").Shapes("Sonderfunktion").Copy
ActiveSheet.Paste
End Sub

Die "Sonderfunktion" ist in diesem Fall eine Gruppierung von 2 Shapes.

Wenn nun eine Zelle in Tabelle1 Ausgewählt wird, und mittels ComandButton26 der Code ausgeführt wird, dann bricht er manchmal mit der Fehlermeldung "Laufzeitfehler 1004 Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden" ab.

Beim Debuggen Hüpft er an die stelle von "ActiveSheet.Paste", wenn man dann jedoch F5 drückt führt er alles Problemlos weiter aus und kopiert die Shapes.

Dadurch das der Code in Office 2016 bereits super gelaufen ist und ich bei Google nichts finde bin ich etwas ratlos wie ich den Fehler beheben kann. Ist das etwas bekanntes von Office365? Gibt es hier irgendeinen Trick um das zu umgehen?

Würde mich sehr über Antworten freuen!

Mfg

Adrian