VBA: beim schließen von Mappe1 Mappe2 öffnen
12.12.2017 18:29:45
Mappe1
brauch mal wieder eure Hilfe!
Und zwar benutze ich nachfolgenden Code um Mappe zu speichern und zu schließen
Sub speichern_schliessen()
Dim sPfad As String
Dim iClick As Integer
sPfad = "C:\Test\Backup\"
With ThisWorkbook
.Save
iClick = MsgBox(prompt:="Möchten Sie eine Sicherungskopie anlegen?", Buttons:=vbYesNo)
If iClick = vbYes Then
.SaveCopyAs sPfad & ThisWorkbook.Name
If iClick = vbNo Then
Exit Sub
End If
End If
End With
Application.Quit
End Sub
Hat jemand eine Idee wie ich meinen Code verändern muss?
Lieben Gruß aus Bremen
Bernd
Office 2016 Pro 32bit