ich habe wieder ein Problem.
Es soll eine Kopie erstellt werden mit Datum. Soweit habe ich geschaft aber wenn am den gleichen tag eine zweite Kopie erstellt wird soll eine neue Kopie werden mit zusätzlichen Nummer oder so.
Hier ist der Code.
Sub KopieErstellenMitDatum()
Dim DName, Dateiname, Pfad
Pfad = "K:\HA_NAE\_Transfer-NAE\Programme\Diagramm-Auswertungsprogramm\Systemdaten"
DName = "Diagramm-Auswertungsprogramm "
Dateiname = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD") & ".xls"
'Tagesdatum als "Jahr.Monat.Tag" wegen Exploreransicht!
ThisWorkbook.SaveAs Filename:=Dateiname
End Sub
Für Hilfe bin ich sehr Dankbar!