Microsoft Excel

Herbers Excel/VBA-Archiv

Sicherheitskopie auf Netzlaufwerk?

    Betrifft: Sicherheitskopie auf Netzlaufwerk? von: Hartmut_M
    Geschrieben am: 29.09.2003 11:02:51

    Hallo, in Excel kann ich automatisch eine Sicherungsdatei anlegen lassen. Diese wird im gleichen Verzeichnis abgelegt. Ist es möglich Parameter zu ändern, so dass die Sicherungsdatei in einem anderen Verzeichnis oder Laufwerk (hier Netzlaufwerk) abgelegt wird?
    Gruß Hartmut

      


    Betrifft: AW: Sicherheitskopie auf Netzlaufwerk? von: HerbertH
    Geschrieben am: 29.09.2003 11:59:55

    Hallo Hartmuth,
    So könntest du das lösen:

    'in das Modul "Diese Arbeitsmappe"
    Option Explicit
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    On Error Resume Next
     Application.DisplayAlerts = False

       Const LW = "c:\"
       Const ordner = "c:\Eigene Dateien\Ordner"

      ChDrive LW
       ChDir ordner
      ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Name

    Application.DisplayAlerts = True
    End Sub

    Gruß Herbert


      


    Betrifft: oT Danke für die Hilfe! (Herbert) von: Hartmut_M
    Geschrieben am: 29.09.2003 12:47:47

    .


     

    Beiträge aus den Excel-Beispielen zum Thema " Sicherheitskopie auf Netzlaufwerk?"