Share this
Twitter
Myspace
Mister Wong
Yigg
Newsider
Newskick
Power-Oldie
Favoriten
Linksilo
Linkarena
Digg
Del.icio.us
Reddit
Furl
Yahoo
Technorati
Googlize this
Facebook
Wikio
Print
E-mail105042
Mit dem folgenden Makro können Sie eine Datensicherung der aktuellen Mappe auf einem anderen Laufwerk erstellen. Der Dateiname bleibt dabei gleich.
Sub speichern_unter()
Dim str As String
Const Lw = "H:\"
Const Pfad = "H:\eigene Dateien\"
str = ActiveWorkbook.Name
ChDrive Lw
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal
End Sub
In diesem Beispiel wird die Datensicherung auf Laufwerk H: im Verzeichnis \eigene Dateien also H:\eigene Dateien\ erstellt. Der Dateiname wird dabei nicht verändert!