Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Löschen von Code aus Klassen- und Standardmodulen

Gruppe

Prozedur

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

    

Beiträge aus dem Excel-Forum zu den Themen VBE und Prozedur