Speichern
21.11.2005 10:52:28
Daniel
ich habe folgendes Makro auf der HP von Hajo gefunden:
Option Explicit
Sub Speichern()
'* H. Ziplies *
'* 16.08.03 *
'* erstellt von Hajo.Ziplies@web.de *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
Dim Name As String
Name = ThisWorkbook.Name
ActiveWorkbook.SaveCopyAs Filename:="C:\Temp" & Mid(ThisWorkbook.Name, 1, _
Len(ThisWorkbook.Name) - 4) & "_" & Format(Now, "YY-MM-DD hh-mm-ss") & ".xls"
End Sub
Es wird zu bestimmten Zeiten aufgerufen, um Sicherungskopien zu erstellen.
Wenn ich nun aber zu diesen Zeiten eine andere Datei geöffnet habe, so speichert es diese Datei unter dem Sicherungsnamen. Wie kann ich das umgehen?
Ich möchte ja, dass genau die bestimmte Datei gesichert wird...
Danke für Tips,
Daniel
Anzeige