Wie kann ich ein Makro bei einer Dateiausgabe mit ausgeben?

[PetrolMaxxe]

Hallo,

ja das geht. Wenn du deine Daten ins Windows Fenster der neuen Datei übergeben hast, kann man danach mit:

Code:

Sub NeuesModulUndProzedur()
    Dim VBComponenten As VBComponent
    Set VBComponenten = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
   
    With VBComponenten.CodeModule
        .InsertLines 1, "Sub MeineProzedur1()"
        .InsertLines 2, "' Es wird eine Textbox ausgegeben"
        .InsertLines 3, "     MsgBox ""Es funktioniert"" "
        .InsertLines 4, "End Sub"
    End With
End Sub

ein Modul mit der dazugehörigen Prozedur darin erzeugen. Anschließend den bisher verwendeten Code zu Ende laufen lassen.
Mit .InsertLines und Nummer wird jeweils eine weitere Codezeile erzeugt. Dies ist nur ein Beispiel.
ThisWorkbook bedeudet, dass das Windowsfenster der Zieldatei aktiviert sein muss, damit der Code auch da ausgeführt wird.

Gruß Uwe