Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code löschen - via Code ???

Code löschen - via Code ???
14.09.2003 13:48:12
andi
... und noch 'ne Frage:

Eine neue Datei wird erstellt, indem per VBA ein sheet aus der geöffneten Mappe in eine neue Mappe kopiert wird.

Der ehemals notwendige Code ist in der neuen Mappe (Datei) nicht mehr erwünscht.

Wie kann ich den nun überflüssigen Code löschen?

Gruß und Dank, Andi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code löschen - via Code ???
14.09.2003 13:56:36
Nepumuk
Hallo Andi,
so geht's:


Option Explicit
Public Sub alle_Makros_loeschen()
Dim vbc As Object
With Workbooks("Testmappe.xls").VBProject
For Each vbc In .VBComponents
Select Case vbc.Type
Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name)
Case 100
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Code löschen - via Code ???
14.09.2003 14:00:03
Hans W. Hofmann
Am besten gar nicht!
Selbstmodifizierender Code ist so ziemlich das Übelste, was man codieren kann.
Die Ausführung verletzt das Sicherheitskonzept von XL.
Code der überflüssig werden könnte, gehört in ein Addin...

Gruß HW
AW: Code löschen - via Code ???
14.09.2003 15:12:33
Nepumuk
Hallo Hans,
da hast du schon Recht, aber ich kenne nur zwei Leute, die die Klassenprogrammierung soweit beherrschen, dass sie Ereignisroutinen der Arbeitsmappe bzw. der Tabellen in ein Addin verfrachten können. Wenn man, wie Andi, VBA nur mit Recorder beherrscht, ist das wohl etwas zuviel verlangt.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige