Gruppe
VBE
Problem
Der Arbeitsmappe soll ein neues Blatt hinzugefügt werden, dessen Klassenmodul den Code von Tabelle1 enthält.
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