Gruppe
VBE
Problem
Wenn ich ein Arbeitsblatt als neue Arbeitsmappe kopiere, wird das Klassenmodul des Blattes mitkopiert. Dieses läßt sich nicht löschen. Wie kann ich den Code in diesem Modul per VBA entfernen?
ClassModule: Tabelle3
Private Sub cmdWksCopy_Click()
Dim wks As Worksheet
Worksheets("Tabelle1").Copy
Set wks = ActiveSheet
With ActiveWorkbook.VBProject _
.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub