Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 19:27:32
Ungewollter Zeilensprung beim Löschen einer Spalte
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Speicher orte

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige