Wie kann ich eine Markierung von Grafikelementen nach einem Kopiervorgang aufheben?
In folgendem Code und Datei bleiben die Shapes nach Durchführung markiert. Selbst ein folgendes Select oder Activate (das ich auch gar nicht brauche) hebt die Markierung nicht auf.
Option Explicit
Sub group_erstellen()
Dim wsNew As Worksheet
On Error Resume Next
If Sheets("Test123") Is Nothing Then
Err.Clear
Set wsNew = Worksheets.Add
With wsNew
.Name = "Test123"
.Move After:=Sheets(Sheets.Count)
End With
Sheets(1).DrawingObjects(Array("Schaltfläche 1", "Schaltfläche 2", "Schaltfläche 3", " _
Schaltfläche 4", "Schaltfläche 5", "Schaltfläche 6", "Schaltfläche 7", "Schaltfläche 8")).Copy
With Sheets(wsNew.Index)
.Paste .Range("J1")
End With
Range("A1").Select
Range("A1").Activate
End If
End Sub
https://www.herber.de/bbs/user/96263.xlsm