Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Neues Blatt hinzufügen und Klassenmodul-Code übernehmen

Gruppe

Tabelle

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

    

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