HERBERS Excel-Forum - die Beispiele

Thema: Tabellencode nach Kopieren des Blattes löschen

Home

Gruppe

VBE

Problem

Wenn ich ein Arbeitsblatt als neue Arbeitsmappe kopiere, wird das Klassenmodul des Blattes mitkopiert. Dieses läßt sich nicht löschen. Wie kann ich den Code in diesem Modul per VBA entfernen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle3

Private Sub cmdWksCopy_Click()
   Dim wks As Worksheet
   Worksheets("Tabelle1").Copy
   Set wks = ActiveSheet
   With ActiveWorkbook.VBProject _
      .VBComponents(wks.CodeName).CodeModule
      .DeleteLines 1, .CountOfLines
   End With
End Sub

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

Ereignisprozedur suche Taschenrechner in VBE
Ereignisprozedur f. Multipage-Reiter Prozedur in neues Blatt/Tabelle einfügen
Makros zulassen mit VBA Prozedur Beschriftungstext einer Schaltfläche an Prozedur
Text aus Zelle als Bedingung in Prozedur Zeitgesteuerte Prozedur funktioniert nicht...
Prozedur zu groß Fehler bei Abhandlung der Prozedur
Eine große Prozedur in zwei teilen aber wie? VBA - Prozedur
Prozedur verkürzen oder teilen? VBA bringt Prozedur-Fehler
VBE Optionen setzen Name der laufenden Prozedur
Prozeduren vor dem Speichern aus Tabelle löschen Prozedurnamen auslesen
Prozedurname aus Variable Erweiterung der VBE
Prozedur fuer mehrere Arbeitsblaetter wiederholen Simple Prozedur - Wo ist der Fehler?
vbeplus Variablen in anderer Prozedur aufrufen
Prozedur bei Worksheet_Activate tut nicht Worksheet_Activate() Prozedur
Teil einer rekursiven Prozedur auslagern Ereignisprozeduren automatisiert VBE
Automatisierungsfehler Codename VBE Verwendung Addin vbeplusde
lange Bearbeitungszeit einer Prozedur Prozedur macht was sie will...
Fehler beim Kompilieren - Außerhalb Prozedur.... prozedur aufrufen
Frage Archivbeitrag - Schreibschutz Benutzerrechte Prozedur in prozedur
Prozedur bei Klick auf Grafik auslösen Fehler in Codeprozedur
Prozedur zu lang Außerhalb einer Prozedur ungültig
Prozedur bei Wechsel Hintergrundfarbe ausführen Bei erster Makroausführung öffnet sich VBE im Debu
VBE-Kontextmenü "Definition" Prozedur dauert zu lange
Objekt an Prozedur übergeben Prozedur automatisch ausführen
2 Prozeduren ausführen Listbox breite einstellen in einer prozedur
aktuellen Prozedurnamen für Fehler-Log automatisch