Was muss ich im Makro eintragen damit beim Speichern die Datei den Namen mit dem Datum von Heute bekommt (also nicht nur Heute sondern dem jeweiligen aktuellen Datum)?
Danke vorab für die Hilfe !
Sub Speichern()
Dim Anzahl As Integer
Dim SpeiName, ActWor
Anzahl = Len(ActiveWorkbook.Name)
ActWor = ActiveWorkbook.Name
SpeiName = Left(ActWor, Anzahl - 4) & " " & Date
Application.Dialogs(xlDialogSaveAs).Show SpeiName
End Sub
Sub Speichern()
Dim Anzahl As Integer
Dim Wbk, Zwi, SpeiName As String
Wbk = ActiveWorkbook.Name
Anzahl = Len(Wbk)
Zwi = Left(ActiveWorkbook.Name, Anzahl - 15)
SpeiName = Zwi & " " & Date & ".xls"
Application.Dialogs(xlDialogSaveAs).Show SpeiName ' Mit Speicherdialog
'ActiveWorkbook.SaveAs SpeiName ' Ohne Speicherdialog
End Sub