title image


Smiley Eine Variante....
Option Explicit

Sub speichern()

Const DPfad As String = "C:\tmp\"

Const DName As String = "Test "

Const DExt As String = ".xls"

Dim DDate

DDate = Date

DDate = Format(DDate, "dd.mmm.yyyy")

ActiveWorkbook.SaveAs FileName:=DPfad & DName & DDate & DExt

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: