ich habe aus dem Beitrag
Re: Alle Module und Userforms exportieren
den Code hier :
Public
Sub Import1()
Dim vbc As Object, iCounter As Integer, StDateiname As String
With Workbooks("Testmappe.xls").VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name)
Case 100
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
StDateiname = Dir("C:\temp\" & "*.*")
Do While StDateiname <> ""
If UCase(Right(StDateiname, 4)) = ".BAS" Or UCase(Right(StDateiname, 4)) = ".FRM" Or UCase(Right(StDateiname, 4)) = ".CLS" Then
.VBComponents.Import "C:\Temp\" & StDateiname
End If
StDateiname = Dir
Loop
For Each vbc In .VBComponents
If vbc.Type = 2 Then
If Left(vbc.Name, 5) = "Diese" Or Left(vbc.Name, 7) = "Tabelle" Then
.VBComponents(Left(vbc.Name, Len(vbc.Name) - 1)).CodeModule.InsertLines 1, vbc.CodeModule.Lines(1, vbc.CodeModule.CountOfLines)
.VBComponents.Remove .VBComponents(vbc.Name)
End If
End If
Next vbc
End With
End Sub
Gefunden. Habe natürlich die Daten vorher schon exportiert (Beschrieben im Selben Beitrag)
Da ich von der eine Mappe alles machen möchte, Export, öffnen der neuen und import, habe ich eslle in eine Mapppe gesteckt.
Excel stürtzr nun immer ab, sobald es in die Zeile
.VBComponents(Left(vbc.Name, Len(vbc.Name) - 1)).CodeModule.InsertLines 1, vbc.CodeModule.Lines(1, vbc.CodeModule.CountOfLines)
.VBComponents.Remove .VBComponents(vbc.Name)
kommt.
Geändert, habe ich nur Workbooks("Testmappe.xls").VBProject in objAim.VBProject.
hierbei handelt es sich um die neue Arbeitsmappe.
Kann mir jemend helfen?
Gruß
Michael