title image


Smiley als Sicherung auf F:\Datei1 _Datum 2006 04 28_Uhr 19 18 42.xls
Hallo ha



Es ist auch möglich über Makro die Aktuelle Datei auf H:\ und als Sicherung mit Datum und Uhrzeit auf F:\ gleichzeitig zu Speichern.



z.B. als



H:\Datei1.xls

und als Sicherung auf F:\Datei1 _Datum 2006 04 28_Uhr 19 18 42.xls



oder



H:\Datei1.xls

und als Sicherung auf F:\Datei2 _Datum 2006 04 28_Uhr 19 18 42.xls



Da die Sekunden immer verschieden sind, hast du immer eine Sicherung, falls die Datei aus versehen mit falscher Änderung der Datei gespeichert wurde.



Als Schalter für das Makro kann auch ein Transparent eingestelltes Textfeld dienen, welchem das Makro zugewiesen wurde,

welches dann beim Ausdrucken der Datei Unsichtbar ist.



Makrocode:



Sub Datei1_Datei_Speichern()

Dim Pfad As String

Pfad = "F:\"



Application.DisplayAlerts = False



' Bitte erst die Sicherung Speichern

' Achtung Wird ein Speicherordner angegeben, muß dieser bereits bestehen

' sonst gibt es eine Fehlermeldung.



ActiveWorkbook.SaveAs Pfad & "Datei2 " & "_Datum " & Format(Date, "YYYY MM DD") _

& "_Uhr " & Format(Time, "hh mm ss")



' dann das Original

' Achtung Wird ein Speicherordner angegeben, muß dieser bereits bestehen

' sonst gibt es eine Fehlermeldung.



ActiveWorkbook.SaveAs "H:\Datei1"



Application.DisplayAlerts = True



End Sub





MfG hddiesel




Gruß Karl .

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: