[XL2010] Blatt kopieren und Makros neu zuweisen

[Jörg Eisenträger]

Hallo NG,

in einer Mappe A seien mehrere Sheets mit diversen Formularbuttons,
denen Makros aus der Mappe A zugewiesen sind.

Die Sheets sollen in eine andere Mappe B kopiert werden, in der es
dieselben Makros auch gibt.

Nach dem Kopieren verweisen die Buttons in der Mappe B jedoch immer noch
auf die Makros in der Ursprungsmappe A. Wie kann ich allen Buttons in B
möglichst elegant (per VBA?) die Makros aus der neuen Mappe B zuweisen,
ohne es für jeden Button einzeln manuell machen zu müssen?


Gruß
Jörg

[Michael Heinzelmann]

Hallo Jörg,

Post by Jörg Eisenträger
Nach dem Kopieren verweisen die Buttons in der Mappe B jedoch immer noch
auf die Makros in der Ursprungsmappe A. Wie kann ich allen Buttons in B
möglichst elegant (per VBA?) die Makros aus der neuen Mappe B zuweisen,
ohne es für jeden Button einzeln manuell machen zu müssen?

Am einfachsten geht es, das komplette Sheet von Mappe A nach Mappe B zu kopieren und die Inhalte zu ändern. (Funktioniert bei mir in Excel 2003 inklusive Makroübernahme)
Wenn Du nur die Buttons kopierst und mit VBA ändern möchtest, geht es bspw. so:


Option Explicit

Private Sub MoveMacroRef()
Dim o As Shape
Const sNameOld = "Mappe A"
Const sNameNew = "Mappe B"

For Each o In ActiveSheet.Shapes
If o.FormControlType = xlButtonControl Then
o.OnAction = Replace(o.OnAction, sNameOld, sNameNew, 1)
End If
Next o
End Sub

Sollten sich die Blatt Namen auch ändern, einfach an den Konstanten mit "!Blattname" anhängen.

Gruß,
Michael

[Jörg Eisenträger]

Hallo Michael,

Post by Michael Heinzelmann

Post by Jörg Eisenträger
Nach dem Kopieren verweisen die Buttons in der Mappe B jedoch immer noch
auf die Makros in der Ursprungsmappe A. Wie kann ich allen Buttons in B
möglichst elegant (per VBA?) die Makros aus der neuen Mappe B zuweisen,
ohne es für jeden Button einzeln manuell machen zu müssen?

Am einfachsten geht es, das komplette Sheet von Mappe A nach Mappe B zu kopieren

Genau das habe ich gemacht.

Post by Michael Heinzelmann
und die Inhalte zu ändern.

Was meinst Du damit?

Post by Michael Heinzelmann
Private Sub MoveMacroRef()
...

Das werde ich probieren in der Mappe B nach dem Kopieren des kompletten
Sheets von A nach B.

Danke erstmal. Ich melde mich.


Gruß
Jörg

[Jörg Eisenträger]

Post by Jörg Eisenträger

Post by Michael Heinzelmann
Private Sub MoveMacroRef()
...

Das werde ich probieren in der Mappe B nach dem Kopieren des kompletten
Sheets von A nach B.

Und genau so funktioniert es. Danke, Michael.


Gruß
Jörg