Arbeitsmappe in anderen Pfad sichern

Mit dem Makro kann man die aktuell geöffnete Arbeitsmappe in ein anderes Laufwerk bzw. Pfad sichern.

Zu beachten ist, dass das Makro die Datei immer versucht in das angegebene Laufwerk bzw. Verzeichnis zu sichern. Wird der Sicherungsordner verschoben, ist das Verzeichnis im Makro unbedingt anzupassen, da sonst eine Fehler ausgelöst wird.

Code

Sub ArbeitsmappeSichernPfadDatei()
'
' Speichert die aktuelle Arbeitsmappe in das Verzeichnis Pfad
'
Dim str As String
Const lw = "e:"                ' Definiert das Speicherlaufwerk
Const pfad = "E:\Sicherung"    ' Definiert den Speicherpfad

On Error GoTo fehler
    str = ActiveWorkbook.Name
    ChDrive lw
    ChDir pfad
    With ActiveWorkbook
        .SaveAs
    End With

Exit Sub

fehler:
MsgBox "Laufwerk/Verzeichnis nicht gefunden!" & vbCr & "Keine Speicherung der Datei erfolgt!", vbCritical

End Sub

Will man nach dem Speichern die Excel-Arbeitsmappe schließen, dann ist der Code wie folgt zu ergänzen

    With ActiveWorkbook
        .SaveAs
        .Close
    End With

Bestseller Nr. 1
Excel 2019 - Das umfassende Kompendium. Komplett in Farbe. Grundlagen, Praxis, Formeln, VBA, Diagramme und viele praktische Beispiele: Auch für Office 365
  • Ignatz, Schels (Autor)
  • 704 Seiten - 12.07.2019 (Veröffentlichungsdatum) - Markt + Technik Verlag (Herausgeber)

(**) Produktpreise und -verfügbarkeit sind zum angegebenen Datum / Uhrzeit korrekt und können sich ändern. Alle Preis- und Verfügbarkeitsinformationen auf https://www.amazon.de/ zum Zeitpunkt des Kaufs gelten für den Kauf dieses Produkts.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.