Excel-Absturz

Hallo, ich weiss mal wieder nicht weiter und hoffe auf Hile.
Ich arbeite mit Windows 7, Office-Excel 2007 bzw. 2010 beta im Kompatibilitätsmodus. Nun gibt es eine umfangreiche Anwendung, die aus einzelnen Mappen besteht, die über Command-Buttons aufgerufen werden. In jeder Mappe befindet sich ein Command-Button "Programm beenden". Dieser ruft ein Programm auf, das im wesentlichen nur sagt "activeworbook.close", was wiederum das Ereignis "before close" aufruft, in dem abgefragt wird "if .save=false then .save". DisplayAlerts ist auf False gesetzt.
Und jetzt das Problem: Excel stürzt ab, meldet "Excel funktioniert nicht mehr", startet Excel neu.
Ich vermute nun, dass meine Programmsteuerung "nicht sauber" ist und dieses Probelem auslöst. Habe bereits versucht, anstatt "ActiveWorkbook.close" "ActiveWindow.close" zu verwenden, hat aber nix gebracht.
Hat jemand vielleicht das gleiche Problem oder einen Tip, wie Mappe Schliessen, Änderungen speichern und Aktivierung noch geöffneter Mappe ohne Excel-Absturz funktioniert?
Vielen Dank.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hajo,
hast recht. die korrekte Routine lautet:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
With Me
If .Saved = False Then .Save
End With
End Sub

und davor:
Sub ChangeAnwendung()
On Error GoTo Fehlerbehandlung
Application.ScreenUpdating = False
'================================================================================
' firma wechseln, alte datei speichern, neue datei öffnen
'================================================================================
blatt = "": PGM = "ChangeAnwendung": modul = "AnwendungWechseln"
Application.DisplayStatusBar = True
Application.StatusBar = "Rating sichern"
Application.DisplayAlerts = False
ThisWorkbook.Close True
'Workbooks(WorkbookAnwendungAktuell).Close
Exit Sub
'-----------------------------------------------------------------
Fehlerbehandlung:
'-----------------------------------------------------------------
If SoundSteuerung = True Then Call sndPlaySound32(Pfad & "FehlerGemacht.wav", 1)
Select Case Err.Number
Case 11
MsgBox Err.Description
Exit Sub
Case Else
MsgBox "Es ist ein Fehler aufgetreten. Die Fehlerbeschreibung lautet: " & vbCrLf & _
vbCrLf & "Blatt: " & blatt & vbCrLf & _
vbCrLf & "Fehler: " & Err.Number & _
vbCrLf & Err.Description & _
vbCrLf & "Programm: " & PGM & _
vbvrlf & "Modul: " & modul & _
vbCrLf & vbCrLf & "Bitte notieren und mir ansagen." & _
vbCrLf & vbCrLf & "Das Programm wird abgebrochen. Eine korrekte Bearbeitung ist nicht gewährleistet."
Err.Clear
Exit Sub
End Select
Err.Clear
End Sub gruß
fred

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread