Makrozuweisung eine Steuerfläche beim kopieren aktualisieren
08.05.2025 12:01:14
LeonK
ich habe in einer Arbeitsmappe mehrere Tabellenblätter und mehrere Makros.
Mit einem dieser Makros werden 2 Tabellenblätter inklusive aller Makros in eine neue Arbeitsmappe kopiert und diese als neue Mappe abgespeichert.
Auf einem dieser kopierten Tabellenblätter befinden sich Steuerflächen die zu einigen dieser Makros verknüpft sind.
Die Steuerflächen in der neuen Arbeitsmappe bleiben aber nach dem kopieren zu den Makros der alten Arbeitsmappe verknüpft.
Was muss ich tun damit die Steuerflächen der neuen Mappe auch auf die kopierten Makros in der neuen Mappe verknüpft werden?
Sub EinzelnesBlattSpeichern()
Dim strNewBookName As String, strOldBookName As String
Dim path As String
Worksheets("Protokoll fortlaufend").Activate
strOldBookName = ActiveWorkbook.Name
path = Range("A8")
Sheets(Array("Protokoll fortlaufend", "Übertragen")).Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled
.SaveAs Filename:=path & "NeueMappe.xlsm"
strNewBookName = ActiveWorkbook.Name
Workbooks(strOldBookName).Activate
With ActiveWorkbook.VBProject
For Each vbc In .VBComponents
If vbc.Type = 1 Or vbc.Type = 3 Then
vbc.Export "C:\Makros\" & vbc.Name & ".txt"
Workbooks(strNewBookName).VBProject.VBComponents.Import "C:\Makros\" & vbc.Name & ".txt"
Kill "C:\Makros\" & vbc.Name & ".txt"
End If
Next vbc
End With
End Sub
Wäre super wenn mir hierbei jemand helfen könnte!
Gruß Leon
Anzeige