folgendes Problem stellt sich mir: ich kopiere ein Arbeitsblatt in eine neues Worrkbook, will aber den Code
nicht mitkopieren, weil z.B. in der worksheet_activate Prozedur auf Makros verwiesen wird, die nach dem Kopieren nicht in der neuen Arbeitsmappe vorhanden ist. Der Blattschutz des zu koperenden Blatts ist aktiviert...
So, ich nutz also folgendes Makro, das ich über eine Schaltfläche aufrufe:
Sub email ()
dim nachricht as object, OutputApp as object
dim pfad as string
dim WS as string
Pfad = "c:\temp"
set OutputApp = Createitem ("outlook.application")
activesheet.copy
activesheet.unprotect
with thisworkbook.vbproject.vbcomponents(activesheet.codename).codemodule
.deletelines 1, .countoflines
end with
activeworkbook.saveas pfad & "\" & activesheet.name & date
WS = activeworkbook.fullname
set nachricht = outputapp. createitem (0)
with nachricht
.subject....
.attachments.add WS
end with
activeworkbook.close
End Sub
Leider wird der VBA Code in der Kopie nicht gelöscht, so dass an dieser Stelle immer der Fehler kommt, weil ja in der worksheet_activate auf ein Makro verwiesen wird, das nicht vorhanden ist!
Weiß jemand wie ich den Code aus der Kopie bekommen ?
Danke schonmal,
Gruß Daniel
P.S. Nur einen bestimmten Range zu kopieren und dann in ein blankes sheet einzufügen wäre nur eine Notlösung, da oben beschriebenes Makro für verschiedene Blätter in meinem Workbook funzen soll....