Gruppe
VBE
Bereich
Tabelle
Thema
Neues Blatt hinzufügen und Klassenmodul-Code übernehmen
Problem
Der Arbeitsmappe soll ein neues Blatt hinzugefügt werden, dessen Klassenmodul den Code von Tabelle1 enthält.
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 "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