Datei nach speichern löschen
21.07.2017 12:51:24
A
ich möchte mein Workbook in einen neuen Ordner abspeichern und das Workbook im alten Ordner löschen.
Private Sub CommandButton4_Click()
'Hier ist weiterer code
If a = 5 Then
Call email2
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Else
'code
End If
End Sub
Bitte um Hilfe
Gruß