Habe mich in der Recherche schlau gemacht und auch gefunden was ich wollte. Nur bei der Umsetzung stehe ich wieder vor einem Problemchen. Vielleicht kann mir jemand auf die Sprünge helfen.
Folgendes möchte ich umsetzen. Beim öffnen meiner Datei soll eine Sicherheitskopie angelegt werden.
Dies funktioniert super - setze ich so um.
Sub sicherheit()
ActiveWorkbook.SaveCopyAs "D:\Frank\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& "_" & Format(Now, "MM.DD") & ".xls"
End Sub
Da es mir dabei vielmehr um die Werte geht möchte ich auf einen großteil der Makros verzichten.
Deswegen sollen die Module1 und 11 sowie Diese Arbeitsmappe von den Makros befreit werden.
Im aktiven Workbook sieht das so aus:
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
'Modul löschen
With Application.VBE.ActiveVBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul11")
End With
Wie ändere ich das so um, dass das nur auf meine Kopie zutrifft?
Gruß Frank