ich habe folgendes Anliegen an Euch:
Ich möchte einen "CommandButton6" von einem Tabellenblatt in ein anderes kopieren in der selben Arbeitsmappe auf die Zelle D2. Dabei will ich auf keinen Fall das ganze Tabellenblatt kopieren (weil das geht ja, aber ist viel zu viel), sondern nur den CommandButton mit seinem entsprechenden Code darin.
Folgenden Code verwende ich dafür:
Public Sub Exportbutton_kopieren()
activeSheet.Shapes("CommandButton6").Copy
'activeSheet.Shapes("CommandButton6").Copy.TopLeftCell.EntireRow.Range("D2:D7").Copy
'activeSheet.Buttons(Application.Caller).TopLeftCell.EntireRow.Range("D2:D7").Copy
With Worksheets("Tabelle2")
.Paste
.Shapes(.Shapes.Count).Top = .Range("D2").Top
.Shapes(.Shapes.Count).Left = .Range("D2").Left
End With
End Sub
Das funktioniert auch soweit nur er kopiert mir nicht den CommandButton6 sondern legt einen CommandButton1 in Tabelle2 an und da ist kein Code in diesem Button. Er sollte aber den CommandButton6 kopieren so wie er ist, damit dieser wieder Funktioniert. Ich will ja nicht diesem CommandButton1 per Hand den Code wieder hinzufügen, sondern das soll er automatisch machen indem er einfach den CommandButton6 kopiert.
Wie kann man also einen CommandButton kopieren mit seinem Inhalt von einem Tabellenblatt in ein anderes?
Mit Formularbuttons geht es doch auch, nur hier brauche ich einen Active-X Button, weil sich Farbe bei Click ändert und noch andere Dinge, die der Formularbutton nicht unterstützt.
Hoffe jemand weiß Rat.
Beste Grüße
Markus