Makro in Makro schreiben lassen ?

alexander · 1970-01-01T00:00:00+00:00

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

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

Hallo,
oder versuche es mal so und verwende für die Dateien eine Variable.
Kann es nicht testen, ab xl2007 gibt es kein FileSearch mehr.

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

Gruß Tino

Makro in Makro schreiben lassen ?

Forumthread: Makro in Makro schreiben lassen ?

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro in Makro schreiben lassen ?

Forumthread: Makro in Makro schreiben lassen ?

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread