mit diesem makro mache ich eine sicherungskopie.nur möchte ich die datei an einem anderen ort speichern,und bekomme es leider nicht hin.
Option Explicit
Sub Sicherungskopie_speichern()
Dim NeudatName As String
Dim msg As String
Dim Jetzt As Date
Jetzt = Now()
NeudatName = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
NeudatName = NeudatName & "-" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt), "00") & _
Format(Second(Jetzt), "00")
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & NeudatName & ".xls")
msg = MsgBox("Datei wurde unter " & (ThisWorkbook.Path & "\" & NeudatName & ".xls") & " _
gespeichert")
End Sub
speicherort für die sicherung zb.
C:\Dokumente und Einstellungen\Rolf\Eigene Dateien\GW DK.
mfg rolf