Office: (Office 2010) per VBA alle Module löschen

Hallo an alle,

in habe in einer Excelmappe unter "DieseArbeitsmappe" einen VBA-Code, der alle Module in der aktuellen Arbeitsmappe löscht.
Also jeglicher Code unter "DieseArbeitsmappe" und in allen Arbeitsblättern bleiben erhalten, es sollen nur die eigentlichen Module gelöscht werden.

Problem: Der Code funktioniert manchmal vollständig korrekt und löscht alle Module, manchmal löscht er nur einige wenige Module und läßt den größten Teil der Module bestehen, manchmal löscht er gar keine Module.

Wenn ich den Code mit dem Debugger durchlaufe, habe ich das gleiche Problem. Manchmal werden alle gelöscht, manchmal nur einige und manchmal kein einziges Modul.
Wenn ich jedoch im Debugger die Schleife zum Löschen für ein paar Module durchlaufe, allerdings kein einziges Modul verschwindet und ich dann die Stop-Taste (Tooltip = 'Zurücksetzen') drücke, dann sind plötzlich die bisher angeblich gelöschten, jedoch bis dato noch sichtbaren Module weg und verschwinden aus der Anzeige.

Kann vielleicht jemand das Problem nachvollziehen, warum mit dem mit nachfolgenden Code unter Umständen nicht alle Module gelöscht werden?

Danke für Eure Ideen und Vorschläge.

Code:

:)

 

Hallo,

ich weiß nicht, ob das hier öffentlich diskutiert werden sollte. Letztlich läuft es auf Codemanipulation und Hackertechniken hinaus, für die keine Unterstützung geboten werden sollte.

Vielleicht erläuterst Du mal die Notwendigkeit. Vermutlich lässt sich das auch so aufbauen, das keine Eingriffe ins Projekt erforderlich werden.

 

Hallo W.Stecher,
hier findest Du jedemenge Anregungen:

Programming In The VBA Editor

Gruß von Luschi
aus klein-Paris

 

Hallo haklesoft,

ich kann nicht wirklich nachvollziehen, wie Du auf Codemanipulation und Hackertechniken kommst.
In meinem Codebeispiel ist jeder Verweis auf "ThisWorkbook".
Damit der Code funktioniert, müsste ich also zumindest einmal Zugriff auf die Arbeitsmappe haben, um diesen Code einzufügen und ihn dann auszuführen. Mit meinem Code besteht also nicht wirklich die Möglichkeit, fremde Excelmappen und Codes zu manipulieren.

Gerne erläutere ich Dir aber den Hintergrund:
Ich habe eine Excelmappe mit automatisierten Geschäftsprozessen dutzendfach an Anwender innerhalb unseres Unternehmens verteilt.
Nun muss ich hin und wieder mal den Code ändern und ständig allen bisherigen Anwedern die Excelmappe neu zusenden, was ziemlich lästig ist.
Um das zu umgehen, soll die Excelmappe sich selber aktualisieren.

Bei Start der Excelmappe wird also geprüft, ob die Module auf dem aktuellen Stand sind. Wenn nicht, soll über die hier diskutierte Funktion alle Module gelöscht und [über eine weitere Funktion] anschließend neu importiert werden.
Der ganze Automatisierungsprozess klappt auch vollständig, mit der einzigen Ausnahme, dass das Löschen aller Module hin und wieder fehlschlägt.

 

Hallo Luschi,

danke für Deinen Link.
Ich habe die dort aufgeführte Funktion zum Löschen der Module einmal genommen und nur eine Schleife eingebaut, damit er alle Module löscht.
Es besteht jedoch das gleiche Problem wie mit meiner ursprünglich geposteten Funktion auch.

Code:

 

Hallo W.Stecher,

ich kann mir vorstellen, dass die Variable vbext_ct_StdModule leer ist (gleich 0).
Richtig ist aber 1 (siehe hier), deswegen: Code:

mfg Anton

 

Hallo Anton,

wenn man 'vbext_ct_StdModule' benutzt, sollte man schon den Verweis
Microsoft Visual Basic for Applications Extensiblity 5.3
gesetzt haben.

Hallo W.Stecher,

ich meinte übrigends diese Routine im Link: Code:

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

sorry, es hat leider etwas gedauert, bis ich den Code ausprobieren konnte. Habe es aber gerade gemacht und dieser Code funktioniert tatsächlich.

Super.
Danke.