Gruppe
VBE
Problem
Der Code soll aus allen Arbeitsblatt-Klassenmodulen der aktiven Arbeitsmappe und aus Modul 2 gelöscht werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address
End Sub
StandardModule: Modul1
Sub DeleteCode()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
With .VBComponents("Modul2").CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
MsgBox "Alles klar!"
End Sub
StandardModule: Modul2
Sub MsgboxCall()
MsgBox "Hallo"
End Sub
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address
End Sub