Hallo liebe Leute,
ich habe eine Datei mit zwei Makros (datei erstellen und eingaben prüfen). Der eine name sagt wahrscheinlich schon was dieses Makro macht.
Problem ist Folgendes ich erstelle ein neues Workbook, in dieses soll durch ein makro das zweite Makro(eingaben prüfen) vom aktuellen Workbook übertragen werden, damit das neue Workbook unabhängig von seiner "Mutter" seine aufgabe erfüllen kann.
Ich habe einen Code gefunden der das komplette Modul überträgt, das problem ist nur wenn ich dann das makro "eingaben prüfen" aktiviere öffnet sich automatisch das "Mutter"-Workbook. Ich habe keine Ahnung warum es das macht und finde im Internet nichts was mich zur Lösung bringt, habt Ihr Ideen?
Hier der aktuelle Code zum kopieren des gesamten Moduls:
'Erstelles Workbook abspeichern
ActiveWorkbook.SaveAs Environ("UserProfile") & "\Desktop\" & Application.UserName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Dim vbc As Object
ThisWorkbook.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 strPath & vbc.Name & ".txt"
Workbooks(Application.UserName & ".xlsm").VBProject.VBComponents.Import strPath & vbc.Name & ".txt"
Kill strPath & vbc.Name & ".txt"
End If
Next vbc
End With
...
'Ursprüngliches Workbook schließen
Workbooks("Abrechnungsdatei erstellen.xlsm").Close SaveChanges:=False
|