Makro in Makro schreiben lassen ?

Hallo,
mein Problem:
Ich habe ein Makro zur Massenpflege von verschiedenen Dateien erstellt. Nun möchte ich aber, das mir das Makro beim abändern der einzelnen Dateien einen bestimmten Code (ein weiteres Makro) in die Tabellenblattmodule der einzelnen Dateien schreibt. Sprich, das die veränderten Dateien beim öffnen ein Makro besitzen das bei der Arbeit mit diesen Aktiv ist.
Wie kann ich das am besten realisieren ? Am lieben wäre es mir wenn es den Makro Code gleich beim durchlaufen des Massenpflege Makros mit reinschreiben würde..
Wird sicherlich irgendwie über "ActiveWorkbook.VBProject.VBComponents("Tabelle1")" zu machen sein, habe aber ehrlich gesagt garkeine Ahnung. Wenn ihr wiederum nur eine Möglichkeit kennt die den Makrocode aus einer Textdatei einlesen dann wäre ich damit auch zufrieden. Wobei mir Option 1 besser gefallen würde.
Vielen Dank schon einmal im Voraus,
Alexander

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Beispiel() Dim strCode As String Dim meSH As Worksheet 'Code für die Tabellen strCode = _ "Option Explicit" & Chr(10) & "" & Chr(10) & _ "Private Sub Worksheet_Activate()" & Chr(10) & _ " MsgBox ""Ich bin ein neues Eventmakro""" & Chr(10) & _ "End Sub" For Each meSH In ThisWorkbook.Worksheets With ThisWorkbook.VBProject.VBComponents(meSH.CodeName).CodeModule .DeleteLines 1, .CountOfLines .AddFromString strCode End With Next meSH End Sub

Sub Beispiel() Dim sPfad As String Dim meSH As Worksheet sPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt") If sPfad <> CStr(False) Then For Each meSH In ThisWorkbook.Worksheets With ThisWorkbook.VBProject.VBComponents(meSH.CodeName).CodeModule .DeleteLines 1, .CountOfLines .AddFromFile sPfad End With Next meSH End If End Sub

Hallo,
habe nun nur noch ein Problem. Wenn ich das Makro so ausführe in der neu erstellen Datei aus einem Modul dann geht das alles und die Tabellenblattmodule werden gefüllt.
Wenn ich den Code:

sPfad = "C:\Documents and Settings\?\Desktop\DYNAMISCH_1.txt"
If sPfad  CStr(False) Then
For Each meSH In ThisWorkbook.Worksheets
With ThisWorkbook.VBProject.VBComponents(meSH.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.AddFromFile sPfad
End With
Next meSH
End If

nun aber in einem Massenpflege habe und das mit ablaufen lasse (Variablen oben natürlich angegeben), dann werden mir die Blätter nicht gefüllt.
--------------------------
Hier ein Ausschnitt aus meinem Massenpflegemakro:

Sub altneu_nach_neu1()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim zaehler1 As Integer
Dim bezug As String
Dim i As Integer
Dim f As String
Dim zelle, zelle2 As Range
Dim wks As Worksheet, wkb As Workbook
Dim sPfad As String
Dim meSH As Worksheet
With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings\AAdam\Desktop\Vorlagen\"
.SearchSubFolders = False
.Filename = "*.*"
If .Execute() > 0 Then
For zaehler1 = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(zaehler1), UpdateLinks:=0
' hier dann ne ganze Menge Code
sPfad = "C:\Documents and Settings\?\Desktop\DYNAMISCH_1.txt"
If sPfad  CStr(False) Then
For Each meSH In ThisWorkbook.Worksheets
With ThisWorkbook.VBProject.VBComponents(meSH.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.AddFromFile sPfad
End With
Next meSH
End If
Workbooks(2).Save
Workbooks(2).Close
Next zaehler1
End If
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Woran kann das liegen ?
Danke,
Alex

Sub altneu_nach_neu1() Dim zaehler1 As Integer Dim bezug As String Dim i As Integer Dim f As String Dim zelle, zelle2 As Range Dim wks As Worksheet, wkb As Workbook Dim sPfad As String, Desktop As String Dim meSH As Worksheet Dim objShell As Object Set objShell = CreateObject("WScript.Shell") Desktop = objShell.SpecialFolders("Desktop") 'Desktoppfad ermitteln Desktop = IIf(Right(Desktop, 1) = "\", Desktop, Desktop & "\") With Application .DisplayAlerts = False .ScreenUpdating = False With .FileSearch .NewSearch .LookIn = Desktop & "Vorlagen\" .SearchSubFolders = False .Filename = "*.*" If .Execute() > 0 Then ' hier dann ne ganze Menge Code sPfad = Desktop & "DYNAMISCH_1.txt" For zaehler1 = 1 To .FoundFiles.Count Set wkb = Workbooks.Open(Filename:=.FoundFiles(zaehler1), UpdateLinks:=0) If Dir(sPfad) <> "" Then For Each meSH In wkb.Worksheets With wkb.VBProject.VBComponents(meSH.CodeName).CodeModule .DeleteLines 1, .CountOfLines .AddFromFile sPfad End With Next meSH End If wkb.Close True Next zaehler1 End If End With .DisplayAlerts = True .ScreenUpdating = True End With Set objShell = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Makro in Makro schreiben lassen ?

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro in Makro schreiben lassen ?

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread