ExcelVBA-Sicherung bei variablen Serverlaufwerk
09.11.2015 11:29:25
Karsten
ich brauche bitte Hilfe bei einem VBA Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim SavePath As String
SavePath = "Y:\Sicherung"
ActiveWorkbook.Save
ActiveWorkbook.SaveAs SavePath & "\" & ActiveWorkbook.Name & "_" & Format(Date, "ddmmyy_") & _
Format(Time, "hhmm") & ".xlsm"
End Sub
Problemstellung: - "Y:" muss eine variable sein, da aktive Datei und Sicherungsordner auf dem Server liegt und immer anders ist.
Kann mir jemand helfen?
Vielen Dank im Voraus.