Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

85 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige