title image


Smiley Re: Dateisicherung während der Arbeit erzeugen
Hallo Uwe,

mit folgenden Makro in Workbook_open erzeugst du beim Öffnen eine Sicherungskopie:









oLen = Len(ActiveWorkbook.FullName)

kName = Left(ActiveWorkbook.FullName, oLen - 4)

'Zeit = Format(Time, "hh-mm")

ActiveWorkbook.SaveCopyAs kName & " (Sicherungskopie).xls"





Code eingefügt mit Syntaxhighlighter 4.0







Gruß

Germann
Gruß, Hermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: