Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Speicher orte

2 Speicher orte
22.01.2020 18:57:45
Werner
Hallo Excel-Freunde
Ich habe schon im Forum gesucht, aber nichts gefunden was funktioniert.
Habe eine Datei mit den Namem Seriennummern.
Diese Datei soll beim schließen in den 2 Ordnern:
C:\Moz-Acer\001 EiDat\01 Handy-PC
und
C:\Users\werne\Desktop\Sync
automatisch gespeichert werden.
Wer kann mir helfen.
Evtl. das dazu passende Makro schreiben.
Vielen Dank
Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Speicher orte
22.01.2020 19:39:21
Nepumuk
Hallo Werner,
in das Modul "DieseArbeitsmappe":
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not Saved Then
        Select Case MsgBox("Sollen Ihre Änderungen in '" & Name & _
                    "' gespeichert werden", vbExclamation Or vbYesNoCancel)
            Case vbYes
                Application.DisplayAlerts = False
                Call SaveAs(Filename:="C:\Moz-Acer\001 EiDat\01 Handy-PC\Seriennummern", _
                    FileFormat:=xlOpenXMLWorkbookMacroEnabled)
                Call SaveAs(Filename:="C:\Users\werne\Desktop\Sync\Seriennummern", _
                    FileFormat:=xlOpenXMLWorkbookMacroEnabled)
                Application.DisplayAlerts = True
                Saved = True
            Case vbNo
                Saved = True
            Case vbCancel
                Cancel = True
        End Select
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: 2 Speicher orte
23.01.2020 14:59:48
Werner
Hallo Nepomuk
Vielen Dank für die Antwort.
Klappt wunderbar
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige