Speichernbutton, aber name+heutigesdatum

Computer: Software & Programmierung Office Software
1

Hallo zusammen.
Gibt es eine Möglichkeit, das ich einen Button im Excelsheet haben, der eine auto. abspeichern einleitet ???
Aber nicht nur abspeichert, sonder auch das „aktulle Datum“ in den Datei-namen einbaut. So das ich für jeden Tag eine andere Datei habe ?
Danke
marcus

2

mal auf die schnelle
sub speichernunter()
Sub Makro1()
ChDir „C:\DeinOrdner“
ActiveWorkbook.SaveAs Filename:=„J:\deinordner\20920_“& date &".xls", FileFormat:=xlNormal, _
End Sub

chdir ist der Pfad in dem du speichern willst

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3 
Sub speichernmitdatumvoran()

folder = "D:\Mein Ordner\"
myname = "Mein Dateiname.xls"


newfilename = folder & Date & " " & myname
ActiveWorkbook.SaveAs Filename:=newfilename, \_
 FileFormat:=xlNormal, Password:="", WriteResPassword:="", \_
 ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

das speicherst Du als Makro und ordnest es dem Button zu - fertig.

4

Danke, soweit. Das funktioniert schon mal.

Aber wie bekomme ich es hin, wenn jetzt noch Excel auto. geschlossen werden soll. Also erst Speichern mit Datum und dann Excel schließen ?
danke Marcus

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

Danke, soweit. Das funktioniert schon mal.

Aber wie bekomme ich es hin, wenn jetzt noch Excel auto. geschlossen werden soll. Also erst Speichern mit Datum und dann Excel schließen ?
danke Marcus

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

6

Aber wie bekomme ich es hin, wenn jetzt noch Excel auto.
geschlossen werden soll. Also erst Speichern mit Datum und
dann Excel schließen ?

Hi Marcus,
Application.Quit
Gruß
Reinhard