alte Datei überschreiben per Makro
11.02.2017 13:06:06
Schwipp
Wie ändere ich das Makro unten,
so dass es bei Ausführung eine schon bestehende Datei-Version gleichen Namens in Verzeichnis "Dateikopien" überschreibt,
momentan wird nämlich dann eine "Mappe.xls" angelegt, wenn der Dateiname schon vorhanden ist.
Sub Abspeichern_Name_String_aus_Zelle_F20()
Dim dName$
Dim DatName As String
'hole Dateinamen aus Zelle F20:
DatName = ActiveWorkbook.Worksheets(1).Range("F20")
dName = ThisWorkbook.Path & "\Dateikopien\" & Range("F20") & ".xls
ActiveSheet.Copy
ActiveWorkbook.SaveAs dName
ActiveWorkbook.Close savechanges:=False
End Sub
Anzeige