Code-Löschen funktioniert nicht
12.01.2004 17:44:14
Lupus
Im Forum sind mehrere Versionen zum Löschen von VBA-Code beschrieben. Nur leider tritt bei mir immer folgende Fehlermeldung auf:
Laufzeitfehler 1004:
Der programmtechnische Zugriff auf das Visual Basic-Projekt ist nicht sicher
Der Code lautet wie folgt:
Sub Makro_1()
ActiveSheet.Copy
Call Code_loeschen
End Sub
Sub Code_loeschen()
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents(1).CodeModule 'Fehlermeldung
.DeleteLines 1, .CountOfLines
End With
End Sub
Was muß verändert werden, damit der Code funktioniert?
Gruß Lupus
Anzeige