Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_BeforeSave - Excel-Absturz

Forumthread: Workbook_BeforeSave - Excel-Absturz

Workbook_BeforeSave - Excel-Absturz
16.02.2007 09:45:29
Bertram
Hallo zusammen,
ich hab mal wieder ein Problem, das ich nicht nachvollziehen kann. In einer Datei habe ich folgenden Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strBez As String
'Fußzeile einfügen
If ActiveWorkbook.Saved = False Then Sheets(2).PageSetup _
.RightFooter = "&""Arial,Standard""&8saved by: " & _
Application.UserName & " " & Format(Date, "dd.MM.YYYY") '"&D &Th"
'Sicherungskopie erstellen
strBez = ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ("F:\Sicherungskopien\" & _
Left(strBez, Len(strBez) - 4) & " " & Format(Date, "dd.MM.YYYY") & " " & _
Application.UserName & ".xls")
End Sub

Sobald ich auf Datei-Schließen klicke, schmiert mir (fast) jedes Mal Excel komplett ab.
Ist der Code auskommentiert, tritt das Problem nicht auf. Kann mir jemand sagen woran das liegen könnte?
Gruß
Bertram
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook_BeforeSave - Excel-Absturz
16.02.2007 11:13:00
EtoPHG
Hallo Bertram,
Obwohl ich bei dem Code auch abschmieren würde, probier's mal so:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strBez As String
'Fußzeile einfügen
Application.EnableEvents = False
If ActiveWorkbook.Saved = False Then Sheets(2).PageSetup _
.RightFooter = "&""Arial,Standard""&8saved by: " & _
Application.UserName & " " & Format(Date, "dd.MM.YYYY") '"&D &Th"
'Sicherungskopie erstellen
strBez = ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ("F:\Sicherungskopien\" & _
Left(strBez, Len(strBez) - 4) & " " & Format(Date, "dd.MM.YYYY") & " " & _
Application.UserName & ".xls")
Application.EnableEvents = True
End Sub

Gruss Hansueli
Anzeige
AW: Workbook_BeforeSave - Excel-Absturz
16.02.2007 12:44:14
Bertram
Hallo Hansueli,
danke errst mal, aber das hilft nicht, der Effekt bleibt derselbe.
Ist der Code wirklich sooo schlecht? Was würdest du den besser machen?
Gruß
Bertram
AW: Workbook_BeforeSave - Excel-Absturz
16.02.2007 21:07:35
EtoPHG
Hallo Bertram,
Ist der Code wirklich sooo schlecht? Was würdest du den besser machen?

Also, soooo schlecht auch nicht. Bisschen unübersichtlich zum Lesen.
Ich versuche immer auf Ausdrücke wie ""F:\Sicherungskopien\" zu verzichten. Fixe Laufwerke und Verzeichnisse sind eben nur solange fix, wie der Benutzer das auch will. Also lieber vom Standord des aktiven Workbooks abhängig machen. Aber sonst weiss ich auch keinen Grund, weshalb Deine Befehle abschmieren...
Gruss Hansueli
Anzeige
;

Forumthreads zu verwandten Themen

Problem mit Operationen in Workbook_BeforeSave
Thomas

Hallo zusammen,
ich habe ein großes Problem mit einem eigentlich netten Makro:
In einem sogenannten Template ist eine Ereignisprozedur hinterlegt, die in Abhängigkeit des momentanen Windows-Users verschiedene Blätter ausblendet oder dies unterlässt.
Mit diesem Template, das aus eine...
10.03.2009 00:13:56
Thread-ID: 1058427
2 Beiträge
Anzeige
Workbook_BeforeSave und Automatisch Speichern
Jens

Hallo
ich versuche beim Speichern meiner Arbeitsmapppe eine zweite Datei zu öffnen. Das funktioniert zwar beim normalen Speichern aber nicht bei "Automatisch Speichern"
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Workbooks.Open Filename:= _ "D:\Schaeller\Jens...
14.03.2009 15:22:27
Thread-ID: 1060160
7 Beiträge
Workbook_BeforeSave aus Modul aufrufen ?
chris

Hallo VBA Experten,
halte mich heute kurz.
Gibt es eine möglichkeit dieses Makro von einem Modul aus aufzurufen ?
Wäre sehr Dankbar für Hilfe.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) msgbox ("test") End Sub
etwa so?
sub neu()
...
16.02.2010 12:36:51
Thread-ID: 1138881
5 Beiträge
Workbook_BeforeSave umgehen
Markus

Hallo allerseits,
ich habe folgende Problemstellung:
Wenn ein bestimmter Code ausgeführt wird, der mein schließen soll (ThisWorkbook.close (False)), soll in einem bestimmten Fall NICHT die Workbook_BeforeSave Funktion ausgeführt werden.
Ich habe gedacht, dass es einfach durch den ....
07.05.2010 16:06:32
Thread-ID: 1156128
3 Beiträge
Anzeige
Workbook_before_save
Stefan Noll

Habe folgende Routine eingebaut:Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Password
Password = InputBox("Password:")
If Not Password = "test" Then Cancel = True: Application.DisplayAlerts = True: Application.Quit
End SubWenn ich jetzt in den En...
26.04.2002 13:27:14
Thread-ID: 116642
3 Beiträge
Anzeige
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
Automakro "WorkbookBeforeSave"
Peter

Liebe Freunde,
inzwischen habe ich soviel über "WorkbookBeforeSave" gelesen, dass ich ganz konfus geworden bin. Kann mir jemand genau beschreiben, wie eine solche Prozedur aussehen muss, damit automatisch die nachfolgenden Anweisungen vor dem manuellen Speichern ausgeführt werden?
Noch...
15.02.2012 16:45:02
Thread-ID: 1250824
18 Beiträge
VBA - Application.EnableEvents
WalterK

Hallo zusammen,
mit Application.EnableEvents = False können verschiedene Ereignissteuerungen
von Excel ausgeschaltet werden, z.B.:
Workbook_BeforeSave
Workbook_BeforePrint
Workbook_BeforeClose
Gibt es noch weitere Steuerungen die damit ausgeschaltet werden können?
Gi...
18.09.2017 18:24:17
Thread-ID: 1581122
9 Beiträge
Anzeige
Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Can
EFE

Hallo zusammen,
bin neu hier, zuerst mal wirklich eine tolle Community. Sehr Hilfsbereite Menschen.
Bin eigentlich ein Neuling wenn es um VBA geht. Aber ich hab es mal geschafft was zusammen zu stellen.
Kurze Erläuterung zur der Excel:
Habe 5-12 Tabellen, die je nach User eingeb...
27.09.2018 19:39:58
Thread-ID: 1648209
9 Beiträge
Workbook_BeforeSave
m@rlin
hallo,

gibt es eine "globale" alternative zum "Workbook_BeforeSave"-Ereigniss, d.h. ohne das ich in jede arbeitsmappe dieses ereignis einfügen muß. ich will das speichern einer beliebigen arbeitsmappe überprüfen.

vielen dank
05.11.2003 11:12:23
Thread-ID: 333393
2 Beiträge
workbook_beforesave
th.heinrich
bestes Forum,

es soll vermieden werden, dass beim aufruf der menuebefehle SPEICHERN bzw. SPEICHERN UNTER der speicherdialog aufgerufen wird.
mit diesem CODE funzzt es nicht.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.DisplayAlert...
07.11.2003 14:46:16
Thread-ID: 334894
11 Beiträge
workbook_beforesave excel schmiert ab ??
th.heinrich
bestes Forum,

folgendes gibt mir raetsel auf.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Call SaveBook Application.DisplayAlerts = False ThisWorkbook.SaveAs FileName:="C:\test\" & Range("a1").Value & ".xls" Application.DisplayAlerts = True End S...
08.11.2003 12:10:48
Thread-ID: 335108
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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