Kopieren von Macros

Hallo zusammen,
ich stehe vor einem kleinen Problem und auch die SuFu hat micht leider nicht wirklich zum Ziel gebracht.
Ich habe eine xlsm Datei, in welcher per Marco eine Sicherheitskopie von einem Teil der Mappe gemacht wird. Es werden die benötigten Arbeitsblätter und die Macros kopiert.
Insoweit funktioniert das Ganze.
Auf der Hauptseite der Originalmappe befindet sich ein Button (Datensatz drucken).
Dieser löst ein vorhandenes Macro (modDSDruck) aus.
In der Kopie ist sowohl der Button als auch das Macro vorhanden.
Nach dem kopieren ist es nun leider so, dass dieses Macro nicht aus der Kopie aufgerufen wird, sondern es wird das Macro der Originaldatei aufgerufen.
Da die Mitarbeiter, welches damit arbeiten sollen die Originaldatei nicht haben, sondern nur mit der Kopie rumlaufen, müsste ich es hinbekommen, dass der Button das Macro aus der Kopie aufruft.
Ich hoffe das ist einigermassen verständlich beschrieben und jemand hat einen Tip für mich.
Viele Grüße
Silvio

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Workbooks.Add ' ActiveWorkbook.SaveAs Filename:=strKomplettPfad, _ ' FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.SaveAs Filename:=strKomplettPfad, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False, _ addtomru:=True Windows(MyName2).Activate With ActiveWorkbook.VBProject For Each vbc In .VBComponents ' Wenn Type = 1 dann ist es ein Standardmodul. ' Wenn Type = 3 dann ist es ein Userform If vbc.Type = 1 Or vbc.Type = 3 Then vbc.Export strRelPfad & vbc.Name & ".txt" Workbooks(strTitelMitMonat).VBProject.VBComponents.Import strRelPfad & vbc.Name _ & ".txt" Kill strRelPfad & vbc.Name & ".txt" End If Next vbc End With Kill strRelPfad & "*.frx"

Hallo Silvio,
zwar bist Du dem Tipp mit der Beispielmappe nicht gefolgt, aber vielleicht hilft Dir dies ja:
Seit dem Umstieg auf Office 365 habe ich auch das Problem, das verlinkte Bilder und Buttons nach Kopie eines gesamten Arbeitsblattes in eine andere Datei, der alte Arbeitsmappenname in den Links stehen bleibt. Was immer sich Microsoft bei diesem Sch... auch gedacht haben mag, bleibt wohl nichts anderes übrig, als das selbst wieder geradezubiegen.
Hier eine Anregung aus einer meiner VBAs, wie alle Objekte einer Datei bereinigt werden könnten.
Versuch es mal, ggf. anpassen:

Sub KHV()
Dim WSh As Worksheet, Obj As Object, T As String, i As Integer
With ThisWorkbook
'Verlinkte Objekte in diese Datei umlenken
For Each WSh In .Worksheets
For Each Obj In WSh.Shapes
On Error Resume Next
T = "": T = Obj.OnAction
If T  "" Then
Obj.OnAction = "'" & ThisWorkbook.Name & "'!" _
& Mid$(T, InStr(T, "!") + 1)
End If
Next Obj
Next WSh
End With
End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren von Macros

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread