Gruppe
Datei
Problem
Wie kann ich bei jedem Speichern einer Arbeitsmappe eine zusätzliche Kopie im Standardverzeichnis anlegen?
StandardModule: basMain
Sub Speichern()
Dim sFile As String, sPath As String
sPath = Application.DefaultFilePath & "\"
With ActiveWorkbook
sFile = .Name
.SaveAs sPath & sFile
.SaveAs .FullName
End With
End Sub