ich möchte ein neu entwickeltes Makro in ca. 1000 Dateien hineinkopieren bzw. das alte Makro ersetzen.
Geht das auch einfach und schnell vielleicht mit einem Makro oder muss ich das wirklich alles per Hand machen?
LG, Katja
Modul4_Öffnen
'Makro in ext. Modul2 tauschen
flg = Empty 'Flag löschen
Call Makro_InModul2_tauschen
'bei "Ok" Datum + "OK" notieren
If flg = Empty Then
.Range(AcAdr).Offset(0, 2) = Now
.Range(AcAdr).Offset(0, 3) = " OK"
ElseIf flg = "No Txt" Then
'Fehler Meldung "nicht getausch"
.Range(AcAdr).Offset(0, 3) = " Nein"
Exit Sub
End If
'Datei immer schliessen und speichern
On Error GoTo CloseErr
Workbooks(Datei).Close SaveChanges:=True
Modul4_Öffnen
'Makro in ext. Modul2 tauschen
flg = Empty 'Flag löschen
Call Makro_InModul2_tauschen
'bei "Ok" Datum + "OK" notieren
If flg = Empty Then
.Range(AcAdr).Offset(0, 2) = Now
.Range(AcAdr).Offset(0, 3) = " OK"
ElseIf flg = "No Txt" Then
'Fehler Meldung "nicht getausch"
.Range(AcAdr).Offset(0, 3) = " Nein"
Exit Sub
End If
'Datei immer schliessen und speichern
On Error GoTo CloseErr
Workbooks(Datei).Close SaveChanges:=True
Modul5_TAUSCHENSub Makro_InModul2_tauschen()
'Makro in geöffneter Mappe austauschen (Modul2)
Set vbc = ActiveWorkbook.VBProject.VBComponents("Modul2")
vbc.codemodule.deletelines 1, vbc.codemodule.CountOfLines
vbc.codemodule.AddFromString sCode
Dort siehtst du eine Set Anweisung mit der VBA Komponente "Modul2" 'Makro in geöffneter Mappe austauschen (Modul2)
Set vbc = ActiveWorkbook.VBProject.VBComponents("Modul2")
If vbc Is Nothing Then flg = "No Txt": Exit Sub
vbc.codemodule.deletelines 1, vbc.codemodule.CountOfLines
vbc.codemodule.AddFromString sCode
Wenn es noch Probleme gibt hoffe ich das die Kollegen dir weiterhelfen.