ich möchte ein Tabellenblatt von einer in eine weitere Mappe kopieren.
Dabei sollen bekannte Tabellenblätter ignoriert werden und neue sollen benannt werden. Wie kann ich den Codenamen des neuen Tabelenblattes per VBA ändern?
Anschließend möchte ich auch noch den Code aller Module und Tabelenblätter in die neue Arbeitsmappe kopieren
Code:
Sub Export_VBA_Code()
'Variablendeklaration
Dim strAimFileName As String
'Abfrage, ob Datei existiert
'Arbeitsmappe Projektplan festlegen
Set objThisMap = ActiveWorkbook
strAimFileName = "c:\Mappe_Test1.xls"
'Sap_Data_File oeffnen und in Excelmappe einfügen
Workbooks.OpenText FileName:=strAimFileName
'Zielarbeitsmappe auswaehlen
Set objMapAim = ActiveWorkbook
'Import1 objMapAim
ListModules objThisMap, objMapAim
'objMapAim.Close
End Sub
Sub ListModules(objThisMap As Object, objSearchMap As Object)
Dim VBComp As VBComponent
Dim VBCompSearch As VBComponent
Dim Msg As String
Dim blnFind As Boolean
For Each VBComp In objThisMap.VBProject.VBComponents
blnFind = False
For Each VBCompSearch In objSearchMap.VBProject.VBComponents
If VBComp.name = VBCompSearch.name Then
blnFind = True
Exit For
End If
Next VBCompSearch
If CompTypeToName(VBComp) = "Document" And blnFind = False Then
objSearchMap.Worksheets.Add.name = VBComp.name
objSearchMap.Worksheets(VBComp.name).CodeName = VBComp.name
End If
Next VBComp
End Sub
Viel Dank für Eure Hilfe.
Gruß
Michael