Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro automatisch löschen

Forumthread: Makro automatisch löschen

Makro automatisch löschen
16.03.2005 13:47:52
Dr.
Hi zusammen,
ich bin zwar sicher, dass das Thema schon öfters behandelt wurde, aber offensichtlich habe ich Tomaten auf den Augen, denn ich find nix mehr dazu:
Wie kann ich innerhalb einer VBA-Routine ein oder mehrere Makros aus bestimmten Tabellenblättern löschen? Hintergrund: ich möchte ein dynamisches Sheet als formel- und makrofreies statisches Sheet abspeichern.
Danke im voraus für Eure Ansätze!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro automatisch löschen
16.03.2005 13:53:08
Hajo_Zi
Hallo Dr.
hast Du Dir da bei Deinem Level nicht ein wenig viel vorgenommen?
Ich habe mal in mein Archiv geschaut.
Der Code löscht sämtlichen Code aus allen Modulen und Klassenmodulen
Dim objX As Object
ActiveWorkbook.SaveAs Filename:="e:\kann weg.xls"
For Each objX In ThisWorkbook.VBProject.VBComponents
With ThisWorkbook.VBProject.VBComponents(objX.Name).CodeModule
For i = 1 To .Countoflines
.DeleteLines 1
Next
End With
Next
ActiveWorkbook.Save
Code 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)
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: Makro automatisch löschen
16.03.2005 13:58:33
Dr.
Das bekomm ich schon hin.
Über die VBA Recorder Phase bin ich schon lange hinweg, aber als "VBA gut" würde ich mich dennoch nicht bezeichnen. Und dazwischen gibts ja bekanntlich nix. ;-)
Danke!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige