Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmtes Makro per Makro kopieren
 02.03.2022 13:54:29 Lisa
NotSolved
02.03.2022 16:24:03 Gast63525
NotSolved
02.03.2022 17:59:35 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Lisa		 Datum:
02.03.2022 13:54:29		 Views:
867		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmtes Makro per Makro kopieren

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmtes Makro per Makro kopieren
 02.03.2022 13:54:29 Lisa
NotSolved
02.03.2022 16:24:03 Gast63525
NotSolved
02.03.2022 17:59:35 xlKing
NotSolved