Schließen mit besonderheiten !
09.11.2004 12:27:32
Martin
Wie schafft man es eine Excelmappe deren Name immer unterschiedlich ist da sich der Name aus zwei Zellen ergibt, per Makro zu schliesen. Befror diese Excekmappe z.b(Mappe2) geschlossen wird, soll eine andere Excelmappe z.B (Mappe1) aktiviert werden. Von der Excelmappe(Mappe1) aus die Makros aus der Excelmappe(Mappe2) mit folgendem Makro gelöscht werden
Sub Makro_löschen()
Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets
With .VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next wks
With .VBComponents("Modul1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
MsgBox "In Der Arbeitsmappe wurden soebend alle Makros gelöscht"
End Sub
Befor die (Mappe2) dann engültig geschlossen wird soll sie nochmal gespeicht werden unter dem breits vorhandenen namen
Hoffe es ist verständlich
Bitte um eure Hilfe und bin für jede Hilfe dankbar
Gruß Martin