Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   MsgBox "Eingabe in Zelle " & Target.Address
End Sub

StandardModule: basMain

Sub NewSheetWithCode()
   Dim txt As String
   Worksheets.Add
   With ThisWorkbook.VBProject
      With .vbcomponents("Tabelle1").codemodule
         txt = .Lines(1, .CountOfLines)
      End With
      With .vbcomponents(ActiveSheet.CodeName).codemodule
         If .CountOfLines > 0 Then
            .DeleteLines 1
         End If
         .AddFromString txt
      End With
   End With
End Sub

    

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