ich habe ein Tabellenblatt, in dem regelmäßig Änderungen gemacht werden. Dieses soll beim Speichern zusätzlich noch an einem anderen Ort gespeichert werden. Ich benötige nur das aktive Tabellenblatt, es kann aber auch die ganze Datei gespeichert werden. Allerdings sollen dann die Makros nicht dabei sein.
Ich habe schon im Forum recherchiert und habe was gefunden für
1) Ausführen eines Makros beim Speichern der Datei
2) Erstellen der Kopie eines Tabellenblattes
Beide Komponenten funktionieren, lediglich, wenn ich sie zusammenführe hängt sich Excel in einer endlos-Schleife auf und erstellt mir eine Kopie des Blattes nach der anderen. Was ist falsch?
Hier mein Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim myPath As String
Dim myWbName As String
Application.ScreenUpdating = False
myPath = "H:\SPC_Temp\"
myWbName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
ActiveSheet.Copy
' activesheet ist nun die Kopie in der neuen Arbeitsmappe
ActiveSheet.Parent.Close True, myPath + myWbName + "_kopie.xls"
Application.ScreenUpdating = True
End Sub
Vielen Dank schon mal!!