title image


Smiley Re: Modul entfernen
Hallo Dieter,

hoffentlich kommst Du mit den Mappen nicht durcheinander:







Sub test()

'Datei als xls speichern

ActiveWorkbook.SaveAs Filename:="H:\Projekte\Projekt1\TEST.xls", _

FileFormat:=xlNormal, CreateBackup:=False  



'Modul1 löschen

With ActiveWorkbook.VBProject

    .VBComponents.Remove .VBComponents("Modul1")

End With  



Application.DisplayAlerts = True

Close



End Sub  









Gruß

Alfons



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: