Sinnvoll, wenn man beispielweise eine Tabelle per Mail
versenden m�chte,
die darin vorhandenen Makros allerdings nicht mit versenden
m�chte.
Dieses Beispiel kopiert "Tabelle1" aus der aktiven
Arbeitsmappe
in eine neue Arbeitsmappe und l�scht anschlie�end alle
Codezeilen.
ActiveWorkbook.Worksheets("Tabelle1").Copy
With ActiveWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, .CountOfLines
End With
|