Excel und VBA: Formeln, Programmierung, Lösungen

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