Gruppe
VBE
Bereich
Prozedur
Thema
Löschen von Code aus Klassen- und Standardmodulen
Problem
Der Code soll aus allen Arbeitsblatt-Klassenmodulen der aktiven Arbeitsmappe und aus Modul 2 gelöscht werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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