Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Workbook_BeforeClose

Forumthread: Workbook_BeforeClose

Workbook_BeforeClose
Dieter
Hallo Excel-Experten,
wieder einmal eine für Euch bestimmt blöde Frage:
Bei dem Befehl „Datei schließen“ und dem „Klick auf Abbrechen“ bekomme ich den Laufzeitfehler 1004 „Die Methode SAVE AS für Objekt Workbook ist fehlgeschlagen“.
Hier die Komplette Prozedur

Private Sub Workbook_BeforeClose(Cancle As Boolean)
If Sheets("Kundendaten").Range("E6") <> "" Then
ThisWorkbook.SaveAs "c:\Varius-II\" & Sheets("Kundendaten").Range("E6") & (".xls")
ThisWorkbook.Close
End If
Application.DisplayFullScreen = False
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
End Sub

Könnt Ihr mir helfen?
Gruß
Dieter
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Workbook_BeforeClose
Dieter
Hat sich erledigt,
habe ein bischen gebastelt und eine Lösung gefunden.
Gruß
Dieter
AW: Workbook_BeforeClose
André
Hallo Dieter,
wenn Du schon alleine tüftelst,
dann lass uns doch bitte an Deinem
Ergebnis teilhaben.
Gruß
AndréL.
AW: Workbook_BeforeClose
25.04.2004 03:00:47
Dieter
Hallo Andre!
Sorry, hast nätürlich recht. Ich hatte schon ein meinen nächsten Problemen weitergetüftelt. Habe folgende Lösung:

Private Sub Workbook_BeforeClose(Cancle As Boolean)
On Error GoTo ERRORHANDLER
If Sheets("Kundendaten").Range("E6") <> "" Then
ThisWorkbook.SaveAs "c:\Varius-II\" & Sheets("Kundendaten").Range("E6") & (".xls")
ThisWorkbook.Close
End If
Application.DisplayFullScreen = False
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
ERRORHANDLER:
Exit Sub
End Sub

Gruß
Dieter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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