Workbook AfterSave Excel 2003

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

frage jemand der neben Dir sitzt der sieht die Datei.
Die meisten hier sehen Sie nicht.
Da Sie nicht auf Deinen Rechner schauen.
Vielleicht sollte die Datei verlinkt werden?
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm*, Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Das ist nur meine Meinung zu dem Thema.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Grußformel

Private Sub Workbook_AfterSave(ByVal Success As Boolean) Dim DateiSuche, Versuch Application.DisplayAlerts = False Application.EnableEvents = False Versuch = 0 DateiSuche = Dir(ThisWorkbook.Path & "\Backup\" & "Rechnung_*.xls") Do Until DateiSuche = "" ' .Print DateiSuche DateiSuche = Dir() Versuch = Versuch + 1 Loop ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Backup\" & "Rechnung_" & Versuch & "). _ xls" Application.EnableEvents = True Application.DisplayAlerts = True End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.EnableEvents = False ThisWorkbook.Save If ThisWorkbook.Saved Then 'Hier kommt dein "AfterSave-Code" hin End If Application.EnableEvents = True End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim DateiSuche, Versuch Application.EnableEvents = False ThisWorkbook.Save If ThisWorkbook.Saved Then Application.DisplayAlerts = False Versuch = 0 DateiSuche = Dir(ThisWorkbook.Path & "\Backup\" & "Rechnung_*.xls") Do Until DateiSuche = "" DateiSuche = Dir() Versuch = Versuch + 1 Loop ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Backup\" & "Rechnung_" & _ Versuch & ").xls" Application.DisplayAlerts = True End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Workbook AfterSave Excel 2003

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread