title image


Smiley Re: EXCEL97: Makros durch Makro kopieren
Hallo IngoVersuche es damit:Private Const Quelle = "C:\Eigene Dateien\Igno1.xls"Private Const Ziel = "C:\Eigene Dateien\Igno2.xls"Private Const ModulName = "Modul1"Private qMappe As Workbook, zMappe As WorkbookSub ModuleKopieren()  Dim qModul As VBComponent, zModul As VBComponent  Set qMappe = Workbooks.Open(Quelle)  Set zMappe = Workbooks.Open(Ziel)  Flag = False  For Each qModul In qMappe.VBProject.VBComponents    If qModul.Name = ModulName Then      Flag = True      Exit For    End If  Next  If Flag = False Then    MsgBox "Kein Modul mit dem Namen " & ModulName & " in " & Quelle    HappyEnd  End If  Flag = False  For Each zModul In zMappe.VBProject.VBComponents    If zModul.Name = ModulName Then      Flag = True      Exit For    End If  Next  If Flag = True Then    MsgBox "Das Modul mit dem Namen " & ModulName & " existiert bereits in " & Ziel    HappyEnd  End If  Set zModul = zMappe.VBProject.VBComponents.Add(vbext_ct_StdModule)  zModul.Name = ModulName  tmpstr = qModul.CodeModule.Lines(1, qModul.CodeModule.CountOfLines)  zModul.CodeModule.AddFromString tmpstr  qMappe.Close  HappyEndEnd SubPrivate Sub HappyEnd()  Set qMappe = Nothing  Set zMappe = Nothing  Workbooks(1).Close  Workbooks(2).Close SaveChanges:=True  EndEnd SubGrussSilvia

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: