Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
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
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BeforeSave / Cancel=True / manuell speichern

BeforeSave / Cancel=True / manuell speichern
20.06.2019 15:33:50
Stefan
Hallo zusammen,
ich könnte bei folgendem Problem Eure Hilfe gebrauchen.
Das speichern einer Datei fange ich im BeforSave-Ereignis mit cancel=true ab.
Nun soll der "Speichern Dialog" mit einem vorgeschlagenen Pfad angezeigt werden. Das _ funktioniert soweit auch. Ich verwende folgenden Code (hier nur das wesentlichste): 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
With Application.FileDialog(msoFileDialogSaveAs)
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), FileFormat:=ActiveWorkbook.FileFormat
Application.EnableEvents = True

Das cancel=true mache ich, damit das BeforeSave-Event nicht erneut aufgerufen wird. Allerdings wird die Datei jetzt nicht unter dem angegebenen Pfad gespeichert. Und ich habe keine Ahnung warum nicht... Hat da jemand einen Tipp für mich ?
Viele Grüße
Stefan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BeforeSave / Cancel=True / manuell speichern
20.06.2019 16:01:33
Hajo_Zi
Hallo Stefan,
mit cancel=True brichst Du das speichern ab.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: BeforeSave / Cancel=True / manuell speichern
20.06.2019 16:50:36
onur
"Das cancel=true mache ich, damit das BeforeSave-Event nicht erneut aufgerufen wird" - Das wird schon durch 
Application.EnableEvents = False

verhindert. 
Cancel = True

gehört besser ans ENDE der Sub.
Bei 
With Application.FileDialog(msoFileDialogSaveAs)

fehlt das .Show. 
ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), FileFormat:=ActiveWorkbook.FileFormat

und 
Application.FileDialog(msoFileDialogSaveAs)

ist doppelt gemoppelt.
So ist richtig: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Application.FileDialog(msoFileDialogSaveAs).Show
Application.EnableEvents = True
Cancel = True
End Sub

Anzeige
AW: BeforeSave / Cancel=True / manuell speichern
21.06.2019 07:55:45
Stefan
Guten Morgen onur und vielen Dank für Deine Rückmeldung,
das .Show habe ich drin, jedoch nicht den ganzen Code gepostet, sorry.
Kann ich, nachdem ich den Speichervorgang (z.B. Diskettensymbol) mit Cancel abgebrochen habe, mit
Application.FileDialog(msoFileDialogSaveAs).Show
einen neuen Speichervorgang einleiten ? Bei mir verändert sich nach drücken von "Speichern" im Dialog zwar der Mauszeiger (so als ob gespeichert werden würde), aber die Datei wird definitiv nicht unter dem angegebenen Namen und Pfad gespeichert.
Es soll ja, egal ob "Speichern unter" oder nur "Speichern" gewählt wird, immer der SaveAs-Dialog eingeblendet werden...
Mein Code sieht jetzt so aus:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strFileName As String, strInitialName As String
Select Case Environ("Username")
Case "Klaus"
strInitialName = Sheets("Status").[B15] & Sheets("Status").[B17] & " " & Sheets("Formular").[ _
D11] & ", " & Date
Case "Werner"
strInitialName = Sheets("Status").[E14] & Sheets("Status").[B17] & " " & Sheets("Formular").[ _
D11] & ", " & Date
Case Else
strInitialName = Sheets("Status").[B14] & Sheets("Status").[B17] & " " & Sheets("Formular").[ _
D11] & ", " & Date
End Select
strFileName = strInitialName & ".xlsm"
With Application.FileDialog(msoFileDialogSaveAs)
.AllowMultiSelect = False       'nur ein Dateiname
.InitialFileName = strFileName   'Ablagevorschlag
.FilterIndex = 2
If Not .Show = True Then  'Wenn Abbrechen gedrückt = Abbrechen
Cancel = True
Exit Sub
Else
Cancel=true
If .SelectedItems(1)  "" Then
Application.EnableEvents = False
ActiveWorkbook.SaveAs .SelectedItems(1), FileFormat:=xlOpenXMLWorkbookMacroEnabled,
CreateBackup:=False
Application.EnableEvents = True
End If
End If
End with
Exit sub

Anzeige
AW: BeforeSave / Cancel=True / manuell speichern
21.06.2019 18:17:23
onur
Und wieso hast du nicht MEINEN Code genommen ?
Habe ich dir doch gepostet - Mehr brauchst du nicht.
AW: BeforeSave / Cancel=True / manuell speichern
21.06.2019 08:00:20
Stefan
Guten Morgen Hajo und danke auch für Deine Rückmeldung.
Ich habe onur gerade auch schon geantwortet...
Das mit Cancel=True habe ich verstanden. Kann ich nach dem Cancel=True mit dem SaveAs-Dialog oder ActiveWorkbook.SaveAs... (mit vorherigem Application.EnableEvents = False) dennoch speichern, oder habe ich mit dem Cancel=True auch alle folgenden Speicherversuche abgebrochen ?
Gruß
Stefan
AW: BeforeSave / Cancel=True / manuell speichern
21.06.2019 09:03:33
Hajo_Zi
ja, da es in save grundsätzlich abgeschaltet ist, ist keine speicherung möglich.
Gruß Hajo
Anzeige
AW: BeforeSave / Cancel=True / manuell speichern
21.06.2019 12:05:42
Stefan
OK, dann gibt es wohl keine Lösung für mein Problem...
Danke und Gruß
Stefan

18 Forumthreads zu ähnlichen Themen

Bei Cancel = True wird BeforeUpdate 2x ausgeführt
JogyB

Hallo zusammen.
Hatte heute ein seltsames Problem mit BeforeUpdate bei einer TextBox. Ich mache dort eine Eingabeüberprüfung nach einer laufenden Nummer, z.B. 0456/08. Wenn das Format nicht stimmt, dann kommt eine MsgBox und Cancel wird auf True gesetzt, damit der Fokus auf der TextBox blei...
24.11.2008 23:34:00
Thread-ID: 1027528
5 Beiträge
Anzeige
cancel = True
Steffen

Hallo Zusammen!
..hab grad in einem Beitrag im Makro die Anweisung " cancel=True" bei dem Ereigniss "Worksheet_BeforeDoubleClick" gelesen..Was bewirkt dieses,was soll hier abgebrochen werden..?
hab es mal nachgebaut u deaktiviert,ich erhalte das gleiche Ergebniss...
Grüße
Steffe...
10.03.2010 19:53:29
Thread-ID: 1144993
11 Beiträge
Workbook_BeforePrint(Cancel As Boolean)
DirkR

Guten Morgen Excelgemeinde,
Ich habe folgendes Problem und bitte um Mithilfe.
In der folgenden Datei möchte ich gerne überprüfen, ob ein "tatsächlicher" Drucker als Standard definiert ist. Wenn "Nein" dann soll der PrinterSetup Dialog aufgerufen werden. Das funzt auch ganz gut, solange...
17.07.2011 09:13:27
Thread-ID: 1222437
12 Beiträge
Anzeige
BeforeClose(Cancel As Boolean)
Lino

Guten Tag zusammen,
ich habe diesen Code, der mir aber leider immer speichert, egal ob ich was verändere oder nicht.
Ich möchte gerne, das er mich Abfrägt ( bevor man die Datei schließt ) " Soll diese Daten in zwei Ordner abgespeichert werden ?
Ja Speichern Nein Abbrechen
Ich m...
08.08.2018 11:05:16
Thread-ID: 1638143
2 Beiträge
VBA: UpdateLinks:=3 - ActiveWB.Close True
SPL

Hallo zusammen,
seit Zeiten verwende ich nachfolgenden simplen Code um mehrere Worksheets nacheinander zu aktualisieren. Dim ABC as String ABC = "X:\P\M\MM\Acc.xlsx" Workbooks.Open Filename:=ABC, UpdateLinks:=3 ActiveWorkbook.Close True Jetzt haben wir eine relativ große Umstellung hinsic...
18.06.2019 18:06:07
Thread-ID: 1698325
5 Beiträge
VBA, "Drag and Drop" in Textbox.Locked = True
Rainer Quaas

Hallo Excel-User,per Drag an Drop möchte ich Text von TextBox1 nach TextBox2 kopieren. Normalerweise kein Problem.Aber da TextBox2.Locked = True ist funktioniert das natürlich nicht.Nun habe ich versucht mit "TextBox2_MouseDown" und "TextBox2_MouseMove" den Zustand von TextBox2.Locked auf False...
31.03.2003 10:38:43
Thread-ID: 238283
4 Beiträge
Private Sub Workbook_BeforeClose(Cancel As Boolean
FPH

Hallo Forum,
wende mich heute mal wieder an Euch mit folgendem Problem:
Warum kann ich das schließen der Datei mit dem Code nicht verhindern, habe ich einen fehler im Code ? Danke für Eure hilfe.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("d36") = 0 Then If Range(...
16.12.2004 14:43:18
Thread-ID: 534257
2 Beiträge
Workbook_BeforePrint(Cancel As Boolean)
Thorssten

Hallo liebes Forum,
ich möchte gerne meine Exceltabelle drucken, aber ohne den CommandButton darin. Kann mir jemand helfen. Habe einen Lösungsvorschlag, er druckt den Button aber immer noch mit aus.
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.Unprotect Worksheets("N...
05.12.2005 14:13:50
Thread-ID: 704694
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
12
10
11
2
1
4
3
1
2
2
3
2
3
4
12
4
14