Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Löschen von Programmcode in Tabelle

Löschen von Programmcode in Tabelle
Programmcode
Hallo zusammen,
habe folgendes Problem:
Aus meinem Excelprogramm kopiere ich eine Tabelle. Dabei wird aber auch der gesamte Programmcode, welche in der Tabelle ist, mitkopiert ( z.B. sub Worksheet_BeforeRightClick, Sub Worksheet_Activate).
Wie kann ich es hinbekommen, das ich diesen Code vor dem kopieren löschen lasse?
Danke für eure Hilfe im voraus.
Gruß Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Löschen von Programmcode in Tabelle
30.01.2010 17:21:54
Programmcode
Hallo Thomas,
speichere die Datei als Version vor 97, falls Du keine Funktionen benutzt die es da noch nicht gab.

AW: Löschen von Programmcode in Tabelle
30.01.2010 17:48:44
Programmcode
Hallo Hajo,
danke für den Tipp. Klappt wunderbar.
Gruße Thomas
AW: Löschen von Programmcode in Tabelle
30.01.2010 18:38:52
Programmcode
Hallo Hajo,
habe gerade festgestellt, das mit dem abspeichern im excel95-Format auch die Formate verlorengehen.
Ist für mein Blatt nicht gerade so günstig.
Gibt es noch eine andere Möglichkeit, den Programmcode zu entfernen?
Gruß Thomas
AW: Löschen von Programmcode in Tabelle
30.01.2010 18:42:01
Programmcode
Hallo Thomas,
Ja, Zugriff auf das VBA Projekt zulassen (dazu gebe ich keine Auskunft)
Code Modul Löschen
‚ löschen von allen Makros
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul3")
‚ löschen von z.B. Workbook_open:
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
‘ löschen von z.B. Worksheet_Activate:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
von Steffen D (Herber.de)
damit du die Namen der Makros nicht eintippen musst:
Public Sub alle_Makros_loeschen()
Dim objVBComponents As Object
With ThisWorkbook.VBProject
For Each objVBComponents In .VBComponents
Select Case objVBComponents.Type
Case 1, 2, 3 'Module, Klasssenmodule, Userforms
.VBComponents.Remove .VBComponents(objVBComponents.Name)
Case 100 'Workbook, Sheets
With objVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub

Von Nepumuk
Gruß Hajo
Anzeige
AW: Löschen von Programmcode in Tabelle
30.01.2010 19:10:18
Programmcode
Hallo Hajo,
habe es jetzt mit deiner Hilfe hinbekommen.
Danke Thomas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige