geht das, das ich eine Exceldatei öffne, diese unter einem anderen Pfad & anderen Namen speichere und die originale Datei im Pad lösche.
Danke für Hilfe
Grüße Christian
Option Explicit
Sub speichern()
Dim Originaladresse As String
'Originaladresse zwischenspeichern
Originaladresse = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
'Mappe unter neuem Namen speichern
ActiveWorkbook.SaveAs Filename:="C:\Users\Public\NeueMappe.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Originaldatei löschen
Kill Originaladresse
End Sub
Optional kann Du mit Application.DisplayAlerts = False oder True die Warnmeldungen ausschalten