Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

workbook_beforesave excel schmiert ab ??

workbook_beforesave excel schmiert ab ??
08.11.2003 12:10:48
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 Sub


verabschiedet sich excel mit folgendem fehler.

EXCEL verursachte einen Fehler durch eine ungültige Seite
in Modul MSO97.DLL bei 0177:306e6dca.
Register:
EAX=00b03b58 CS=0177 EIP=306e6dca EFLGS=00010246
EBX=306e7004 SS=017f ESP=0062f0c4 EBP=0062f0d0
ECX=0062f0f8 DS=017f ESI=00000000 FS=6c67
EDX=0062f75c ES=017f EDI=00643bfc GS=0000
Bytes bei CS:EIP:
39 b0 98 00 00 00 75 3b 8b 45 0c 48 0f 84 36 01
Stapelwerte:
00000000 00643bfc 00000001 0062f0e8 300295c5 00643bfc 00000040 0062f0f8 018e4cb4 0062f7cc 300f5f63 00643bfc 00000040 00643bfc 00000000 00000000

rufe ich das speichern ueber ein MODUL auf, kein prob. startet das MODUL mit CALL aus dem WORKBOOK_BEFORESAVE steigt excel auch aus.

benutze EXCEL 97 SR-1

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: workbook_beforesave excel schmiert ab ??
08.11.2003 12:18:51
PeterW
Hallo Thomas,

gib mal das Blatt mit an, in dem der Name steht.

ThisWorkbook.SaveAs FileName:="C:\test\" & Sheets(?).Range("a1").Value & ".xls"

Gruß
Peter
AW: workbook_beforesave excel schmiert ab ??
08.11.2003 12:31:05
th.heinrich
hi Peter,

danke fuer die prompte antwort, aber leider kein erfolg.

soweit ich das momentan ueberblicke tritt der fehler auf, wenn sich A1, also der DATEINAME aendert. dann dreht excel bei SPEICHERN, - UNTER und SCHLIESSEN hohl.

gruss thomas
AW: workbook_beforesave excel schmiert ab ??
08.11.2003 12:56:47
PeterW
Hallo Thomas,

versuch mal am Ende des Makros ein Saved = False zu setzen. Zumindest kann ich so den Fehler umgehen.

Gruß
Peter
Anzeige
AW: workbook_beforesave excel schmiert ab ??
08.11.2003 13:21:04
th.heinrich
hallo Peter,

so sehen die CODES momentan aus.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call SaveBook
'Application.DisplayAlerts = False
'ThisWorkbook.SaveAs FileName:="C:\test\" & Sheets("tabelle1").Range("a1").Value & ".xls"
'Application.DisplayAlerts = True
'Saved = False
End Sub


Sub SaveBook()

Application.DisplayAlerts = False
ThisWorkbook.SaveAs FileName:="C:\test\" & Range("a1").Value & ".xls"
Application.DisplayAlerts = True
ThisWorkbook.Close Savechanges = True
Saved = False
End Sub


nun bleibt er im SAVEBOOK in der zeile THISWORKBOOK, mit der fehlermeldung "datei wurde nicht gespeichert", haengen.

werde einen button im sheet einfuegen und SAVEBOOK laufen lassen, aber vielleicht hast Du noch eine idee.

danke von thomas
Anzeige
AW: workbook_beforesave excel schmiert ab ??
08.11.2003 16:09:40
PeterW
Hallo Thomas,

habe erst am Montag wieder Version 8 zur Verfügung. Heißt deine Tabelle wirklich "tabelle1" und nicht vielleicht "Tabelle1"? Lass dir mal anzeigen, wie der Speichername aussieht, also im zweiten Code vor der Zeile ThisWorkbook.... einfügen
MsgBox "C:\test\" & Range("a1").Value & ".xls"
Ansonsten hab ich im Moment keine Idee.

Gruß
Peter
AW: workbook_beforesave excel schmiert ab ??
08.11.2003 20:08:16
th.heinrich
hallo Peter,

egal ob "tabelle1" od. "Tabelle1" excel ziert sich, der witz dabei ist allerdings, dass der geaenderte DATEINAME uebernommen wird.

siehe auch den thread mit ChrisL.

https://www.herber.de/forum/archiv/332to336/t334894.htm

gruss thomas
Anzeige

34 Forumthreads zu ähnlichen 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
Anzeige
SaveAs über VBA macht bei BeforeSave Probleme
norman

Hallo alle,
ich habe ein wirklich kniffeliges Problem, das bereits hier mal angegangen wurde (https://www.herber.de/forum/archiv/1144to1148/t1147360.htm und https://www.herber.de/forum/archiv/1144to1148/t1145651.htm, vielen Dank an dieser Stelle an Tino, entschuldige bitte, dass ich damals...
23.07.2010 17:21:36
Thread-ID: 1168218
11 Beiträge
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
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
Temporäre Datei erstellen - Workbook_BeforeSave
Stefan

Hey Leute,
vielleicht könnt ihr mir weiterhelfen. Ich würde gern eine Temporäre-Datei erstellen lassen beim öffnen der Excel-Mappe. Beim klicken auf speichern soll die Datei automatisch in ein spezifischen ordner gespeichert werden. Bisher habe ich es so:
AUSZUG: Private Sub Workbook_o...
17.04.2015 09:11:48
Thread-ID: 1421385
4 Beiträge

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
1
8
6
4
2
10
2
11
17
3
8
1
8
1
10
1
2
1
4
1
4
1
6
2
2