PDA

Vollständige Version anzeigen : Will mit VBA verschiedene Module löschen


Tayler
18.02.2008, 13:30
Hallo zusammen.
Wollte mit folgendem Code verschiedene Module und Formulare löschen:

Sub Module_löschen()
With ActiveWorkbook.VBProject
.vbComponents.Remove .vbComponents("Modul_Allgemeine_Daten")
.vbComponents.Remove .vbComponents("Modul_Aufträge_holen")
.vbComponents.Remove .vbComponents("Modul_Bestellung_zurücksenden")
.vbComponents.Remove .vbComponents("Modul_Materialliste_oeffnen")
.vbComponents.Remove .vbComponents("Modul_Stücklisten_holen")
.vbComponents.Remove .vbComponents("Modul_Bestellformular_versenden")
.vbComponents.Remove .vbComponents("frmAuftragsauswahl")
.vbComponents.Remove .vbComponents("frmFreitexteingabe")
.vbComponents.Remove .vbComponents("frmMaterialliste")
.vbComponents.Remove .vbComponents("frmMaterialliste_1024")
.vbComponents.Remove .vbComponents("frmSM_Aufträge")
End With
End Sub
Wenn ich den Code ausführen will kommt immer folgende Fehlermeldung:
'Laufzeitfehler 1004'
Kann mir jemand sagen, woran es liegt?

Gruß

Tayler

Sturmovik
18.02.2008, 13:34
Moin,
Die Syntax ist irgendwie seltsam...
Probiers mal so

Sub Module_löschen()
With ActiveWorkbook.VBProject
.vbComponents("Modul_Allgemeine_Daten").Remove
...
End With
End Sub


mfg Sturmovik

Tayler
18.02.2008, 13:41
Hallo Sturmovik.
Danke für die schnelle Hilfe. Leider funktioniert so auch nicht. Bekomme immer noch die Fehlermeldung 'Laufzeitfehler 1004'.

Gruß

Tayler

Sturmovik
18.02.2008, 13:43
an wlcher Stelle kommt denn der Fehler?

EarlFred
18.02.2008, 13:43
Hallo Tayler,

schau mal unter "Extras - Makros - Sicherheit" und dort im Tab "Vertrauenswürde Herausgeber", ob bei "Zugriff auf VB-Projekt vertrauen" angehakt ist.

Grüße
EarlFred

Tayler
18.02.2008, 13:48
Hallo EarlFred.
Danke für die schnelle Hilfe. Der Hacken hat gefehlt. Funktioniert jetzt einbandfrei.

Gruß

Tayler

EarlFred
18.02.2008, 13:51
Alles klar, prima.

Gern geschehen!

Grüße
EarlFred